


Institutional Archive of the Naval Postgraduate School 





Calhoun: The NPS Institutional Archive 
DSpace Repository 


Theses and Dissertations 1. Thesis and Dissertation Collection, all items 


1981-06 


Implementation of a configuration and 
maintenance management system for Local 
Area Networks 


Dickison, David G. 


Monterey, California. Naval Postgraduate School 
http://ndl.handle.net/10945/23698 


This publication is a work of the U.S. Government as defined in Title 17, United 
States Code, Section 101. Copyright protection is not available for this work in the 
United States. 


Downloaded from NPS Archive: Calhoun 


Calhoun is the Naval Postgraduate School's public access digital repository for 
(8 DUDLEY research materials and institutional publications created by the NPS community. 
«ist sae Calhoun is named for Professor of Mathematics Guy K. Calhoun, NPS'‘s first 


INN KNOX appointed — and published -- scholarly author. 

| LIBRARY Dudley Knox Library / Naval Postgraduate School 

411 Dyer Road / 1 University Circle 
Monterey, California USA 93943 





http://www.nps.edu/library 

























tJ ry 24 way et er ae, o: oy hah 
’ . Wo #8 Se os een verdana * AL 2 2 Wo 6 Seto ae tla d aiietd gadis 
: reall a ere, a gk th Nd Le rs bt Pers 
a bal s ¢ °. ite . 
. : alee ieee © ve 









































i ' ih Ce! 
ie sens te, ee ial ies 
. otis teats eeoe Beryl 
’ ‘ ve is . ee ‘ 

i . Ce i Lay 4 ee 3 ij oe et, a =. 

, . ‘ cf . a 4 t ’ tr » ra} 44.4. 
of He . . ie) a oi ten 1 ese of . LS o's. a be | ooo fy a" ‘ Att ° BagU Ese wt, Ric seacisnties pa 
‘ . a on ry L . Tin ’ > ! ra © erpe F “a 
: Rees hg Cae Meer eS NOM (yoo ; a estate aeatytt hw re 
. ry . 





Sess 







Rea Pa Feed Se dant reat Bary ery 
Pa 































































































































































































































































































































































































































° ie, TR ONE Re ord 2 Oe 4 0b i ata sel 
F - vie ae ee te eae 8 wei ie EE Pt Pree ae ee era oe 
: Pier woes gee ag ahaa cada ia ae ane : + saiiniat atl fascias a poe 
a4 t FA sh 1 ¢ ne ha 
me a 4 5 ree HF arty ee peer] eee o. abe Br rae AD 4, SGN ‘eaihe erbs Ph a arrest oa 2 tte sae 
Ga eaae ss oe ehrats picanerocerhe ? 078 abeeitsd ‘yites Saas “a 7 ini ash Ped eT ro ad's ro) ght haa oteng 
f . oon ey % 
A scle a sey Af) "4 yay ' be tet thes 3 tea oer ex ep ah sai cea bea throbs: Hsia ais 
A ee OM ee a RC Pq) satay dob on. aod peor ae 
AS bd, ys or eee Fie ers | gages ea ror} 
: eho "e° ete oa Esa Ft me star, as Sho WOME Ra rst e eit oy, oe 
Pat are any rah ss's Aa | Naa iee fs veal} Ald vi 4 is ty chase ote 
hae ee ba Be, yr ’ ‘n ' 40 (40 aFo\ BY Saas gee 
‘ . Sn +d we sila sete sss 
. é “44 rate 26 
_ A Went a ty Pye $14 die tie 
. ata s etree @ bene Vs negiws cisale 
ar Hees Viernes grace mca ’ tt og epitet fren Ss at 
at ae . “8tp oar So ae a ge s Pare 117 Oe Cr Sa 
1 s ’ wah te hers pe rete aed ahs *. ae poUeaie He a 
. * . . > . F . Coe i) oe t 
. e*k a : » i ~ . fis ' Alte oF Sinead . oie 4 . B ek “pepe Er sarnee cy ae A™ ee a OO ae ms *¢ ig Pal oe ah Hy Rew efeye 4 
a 6 “sbos . 6 Beaty ay 6 > hot “ ee ee ‘ " Peeves elon TONGA d td ede pa ty vtatenedey oe phe (aviecon ase daskebys 
. e S peees 1 . a8 ate bs 4 bee ee ee re FRC RS ECM We FOODS RR TU Miiamgled’ fh RAR MD 
, o ee fae oe area te te . ; et ee ee Oe bea dehy Lede ewe Lage cee On Tdekcs op daaes 
o=> ‘ ary ave eeye * 9k "St. oe 8 bre v.aee a Bod pe nie ete dle y. hea yet , Le Err io 
. s e x ied ‘ . 
» i. : weit S oy" wee wes . eh ‘' Pid . ' yg ‘ ee Saye * 
« on 4 . haart | + ’ 1 tee ge ie arn 1 
« ao = ee " ® ee need eer Part Pie oan) eye a ey 
. ‘ . . . ees ‘ te pars Ve Q aS Se ete ee ee he ef i} 
” « 28 » arta twee, ers are erp ate heh eg POR Hat ee Pe Hee mE tem art pate 
. es = ece, > 1 soe . ory Sea 8 s bee Ow pe Bee a ate ee ee Oe Ty e fe ome 
Bons, oon en ’ > ee. eee 1 + . spahe “ te Ce ee el ae ts +.Aon ve 
mya: Ravn ok 1'h $e Saar ee oe eee ae . Oe A Gye eed ee ee et by and tage A eaN 2 33, weaned Seek 
. ae es eee 4a ry hee ete a Soe Pe Oe De ae Li VR ae tga d *ghet orp Aeced tebe a 
ee 4 Oe . ote au® %s ow «€ fee ot te €: ooo oe ‘, vet a, as am 
. ve . . . tee ' . ~~. Ce. ee bs eo oth rm 8 COS a ae eel | a meats, (Sas Ta) : ieee Setekdgaas 4 oan Ki 
’ id . . a * 2 a 
So? ares Sie ee He aa nage ee Ree esh seat 
ary “a - 
ies suaeke gies). ye ‘ tee ta beige ngs Sten ai 
> wee 8 a : a shin fact bp Ane, vad 834 ye jaya? a 
e ecg e 8) on 1” ee ee a | By a i ayh hae iets Of4ahssad ise $53 Bie 
1 e . . 1 ‘ . ‘ whip We "4 sta ie 1 Aanas ink isbraitche ee 5 AEP 
. . one , ae ee » ' ta yh Owe eFC RP wes Ogos FF pave es ROUTER ee Cm 
» oe Swale lowe as oe Fe oe Te eee vee oa ee . arn a] ‘ se serar is i% rte Stenbaeeehtt ea 
2 wo? tect ee Fae . ro) . a a ee | . ' as wre > a + tee ‘ " LT peaks 
2 - e's ", 4 At "i ‘ sys + vamausete “es 4 £98 Fo DE Bee ¢ och paren Co are * ‘ Ne tat i? ceases pace ast ae ne ele gam oe8 
ane . thes O ue i Par -" 
or ' ree kr Soe oe OF aay Fy ce my Seah vide pr aid gay agra, 
Pa | bata ot Be, a eg 
‘ "aia odin ays ’ Ahi enn 3 Peters ives ase ia aaa ‘ests 
1 Ventg iabe sae SINS. nee dads a Tidy ab wry os 
ne ia oe He ey tb sue 
te +, 
Rr WW RCH er oh a 
ie Byte tekst tsa.8 
oe Mea a : 
te ee F se Pn) 
rete ey nibi 
. 5 8 btn ‘Soe wets Meeh 2 ak * We ew Od Od ea BY 
F * peed eo A ee eh ees &* apre . iSpsavds a4. +4 
ee ee a nee FR wee ety we a sapesteee ra 
. ‘ye eee WR 1%, Sap og Wh ae Cian ay Cadet Foaeh Peal ol ay 
Pp : hd ee ed er ed tra os rT Sees a Pa ia tat | yanite ' sts 1 tiles Hs 
7 . ’ oats 4 a*ety bg Wb 8 ote ee 5 ooh ae ohare t hoist govtaa $s CU 4etete Wiack of oe 
an , ‘ “of va a. ath Bl treet ew ortay cr 
ci +% Lhe ee ‘ Be Ls : ee 
aera at atee a ‘ GE kas 
. os me PT s ‘w. 
as se 
“. , 
7 . o ‘. 
» 
. 
. ‘ 





eo a 
4 of 














erate 
"ha 'al ge dn tee 
TP bah we Oe PA 






















4 
Cuter. Sem 


See 


bate tt o 
CHE 
i 


el 
s 
























ie olay 
a Are Ly 

sounds a ott 
Lea a?7e ay 




















- ade sabbdor ect awl 
; “suber nat Pisa Be 
> & 
Py 
iv. 

" 

=a Sa bese tig 3 






’ 
we eFies 8 
































; 
* F a4 
« . 
= , 
ce ain 
‘ tas 
» oe *84 ate 
: . 
sere: 
° 
. Ca en 
: <4 } 
s rin 4 
' f 
a “4 ‘ ae xf 
s a 
oe 8 \ 
; hd  & 

i ’ , =o 
ree 
ein od 

: a ri ¥-F 50 
>” TC ieee << Mate: Peer 
* « Ss 3=s2= 
5 A St —— 







e, 
" 
‘ 






, 










oe 
it) 
if 
4 
4 





4 
4 
. 
t 








ue ce ere) eens = 
Aa of onthe © 





i 






i 






i 
. 
ra 
4 





a 
hi 











wee ents ys 


seneqze sg 


eagS Ie Bs betaine 
2 Bae a gd Up ge 


Poymereny 







4 +b oFer ot 
Poe wm be te 














Paro pew pe 
Fat te Pp gt yay “ 
YS Maree pl tite tf 














: ; f Fe ay 2 
9 bw oleae, p92 fe tele te fee 
Pi ta Re 

wy tly 























































































































































































































































































































































































































































































































































































































































‘ 
Cie ver Oat Yee le a aT e 
Ore ee ee i 9 7 > 
oe oe eye haw de A RU AG Mae oa dal fat dha yer fre baa hy bh ups al eS 
se nee rae ue ty . e yt ‘te ayert » ud’ Pesigt HP Chase preceded et srw yivem igs inet sage me ee atte pp Cod 
. ve ’ tat tsa ts epee . he (Vey ie out Byer tet ae de 4 og a wet et satal tt te at yeu pred y 1 eae ite* B het ayy way % ees Ee; TE oe CY SSIS See 
ate osfet pe -*5 @ be one aaep e fee Pp rt POS OE Oe a ged A ow Dt plasy aanre Lamia et dew eg ee ayers pss ee Sa A 
' Cer aes re ee Pk ae ce hc es i ane 1 erigteerme Soper Poy ie cele petre fects exe Sh eae ures pee FF OCG = Ae 
FIRLIS Ia tay Pr ee ae Te ee Ye er a a eb eT acgta ah aee ore pe pem & Bye ay brid og ase Protege Bataiety a = « ’ re oleate ect: “pie. ats Spel ect en 
easese Sp estar ae a PR -re lO ae af Ci re ee | pveee Sy ¢ dw eat a poe ae 7 LARS OL feet " “ff kta vy ey Aa i es ws noe eee asl 3 ete RTE S RASS SE ese eee 
. = s a . ue tee is ot rece Pieri’ ‘acess . ro er keh Hee Be Se serene ete gr oe pode pegs s ria pa rh Plawysery ” geeiy **§ ia pr tary Ole oh sree Pei rar SLITS 1 ee ‘2 on 
aeaF “> i ee We PY er ier Gee ay We ey ee woe eae he A po Baty fe rae ely UO ee Bde he gabe 08s -¢ we peresa retpeantete SFE AAE SS SRLS CE ea = 
SoA eo ' te rome ow eae pa dags fee Fe ter ff bw ee 4 he a Spe eet ete grdnsae gee rt ae ee Tepes °Pte c H or 
Wan atae ’ . bs or r 1 ag as ye or Boe here yp oat Pe tt a rae = hy ae tt eh oe, greed ie ae ee "= e 
a ‘2 ry . “4 ptee Oo are ' tebe t ae} 5 ayeery~ wrens. Re NON BOONE IL 
e e ty ore enw PF noo iat ley ar e sas oe gs Fas se8p) b ; Keay: Let cpctor feo Woennt 
. ® - « ter 4 oe mies aa uitve sa whyin 0 5 ; 
® nee ee ie ae ee ae i; . re a ne Oe re 1% | rate Ae ee F SAS: iG © - 
a ae ” re a Ce apes of 4 etm cm Fer gue at ings a ute 2 oe ee oT, aie ied ¥ = el ee ! SOS 
. ; ee pe dave se tetas ES eae gti Joca tate gs ah ES fd Rityupies ata By yt a tiittateie leteaeree peer ea ee ee 
‘ ‘ Ly ‘ ry ober 208 a ger sae eae wee -” oan ear Le = ? ts bd = 
a va . a er ’ Si? if ae pi gestae Siietaericaloee it! Fp wear se wed 6 ow erage dene p erqegea we wee OPED Ue yteag Feegey reeity 2 opeegee bration! rp hf plete Je. oh Pex S 
Le Oe : ae ° one re . rere rh wee ty beavie io > mM Hert Cie De eee ee Oe Le LO a le a oe ee Se " ‘Ea 2 > eee a rd Bit BAe Bee + Semen ie Se, 
ae . ‘ ’ ’ ptead nr arse pte O28 tay ee trae i Pa Ha ers PE rieee mae 9c Bt y ett st de ie . 2 te "t:75? 4 he ieee 4 3 we foe rer? wr 
> a ‘ ae ae ay tena enhcd a aes ar | "ET Se we PP ete hye ora Pang pesday ty" 28 ye arene are gry nos a ily eitete aha iene woe NS nae yg 
, + we myane pigte sr Fietgeais a it, ” che A oa Do Px Lice wip awrgeye? Rul re erprawee Foye Se crema 1 be He Lg he a Set at, Da —e pty 
. oe ry sam srygte 2 ie gt Fats s ine? ig Pr ne wr Po? GEnGTt x belalet p rele repo et ab ab pe ~~ ie’ fsa ame 
2° e . ager ete 2 tte wu bd Diag ne ¢ ax Bs ite Setiawts my ays ere esy f % Ree Fe 
. pore . ce eter aatarey enya pets 8 : a =~ 
7957 a oot ag os Forts aspen wee Beene Peder how 34 a is eretp ener: yeep: eye ehhies Aa a we Fee RES Ne 
vr a) acer a LT 0 avuwae ti ¢aty as eee Ce es pine tay ers’ Spit Li be he eepines 5 
> be re en sew ae Oa ee byw gop MD sen wprige a tate ghd whey Sherer rae ie TE He 
‘ 4 Ao) re eee eee ee Par er ye CC Oe ACR ne Behr ” Fld ple reg ethg rete a i bit os are psec Li sae ee gat vo en 
. «o . ab “at a eens x t ” orn “iF epvpeane wm geeten tye ap z % a eer = 
Ae Sateen my eee se 4 te tts 4, paneats Aire LS ee aL ata CUI ee ee , genes atta) php galt aye Sere ee 
ey ea aace 8 omit ' Ce Cee Or ke Me SC a ee Re ere ee Ts ar ava any UPAR wubsece bg seie AF cane ie scrtts ape aes ra tips fg raa oease meee a tts £ eae Dae 
« -e.8 cay . Cie oe vs ef te ards eaasMees eet geiu . te faenw patty 2408 fo Fen @ MPF Bre ee wn,an og Rr me # A ev . i rs . o Noa , . op popes: Ns Sy 
i , « . + “ee < Paty ae . ne re ey rept oeagy en ’ ee he ee ee eo ey ee ee er ee ee Oe ee Pt oe ry w*s“y ewiur ae oF. eres act Pe, f! ae cae Ad fy § Relic epee aee a gree py ee 
oe cer 4 - 1 Piaaialpinialieteceee: aueriha eur Serie PA AYE HD FD DH EMRE TER. OT RATE ohm h yD 1688p a Re RRC We A) Ol ee od ee Lid ih a ‘a pg gible Le eearaated fe oo ty Spm ey ome ovary, yy : 
set 4 one ey Ae +98 Lie act Ret | . ete eek es baa ats 4 ce A F yenrgy paver a aay e age tad eel Bape ee 4 
eee te earew . , eocapeenee 4 ene g seer, ed 7 f bs 5 = 
’, a > Sm Ce epee naan ’ byerw aang awe Poly . « r} e. ipbeca¥atecstasaeate a4. 4 Ni Rap eg ik a Po ea ROS 
ae rete ae ‘ Bebe ne ae ee he hd fhe oe ow ee mM pate A % : = per eee or teh de, tet MS 
° aoe Le oe eve Uh a er ed Hee eae Pda Jer Ce DCO aCe wai ae A f ; id Roepe, Ager ogee i OS 
7 ee areal a Lf ee TM ge peste duh gee bee br a aways rh mr Pee ee ae ee ta re ip Siena tale 
U ee ‘ . ' * ese an per fate et lbs po ale aes pee tegee 74 acest! yp ut ere rat { eS fee te Se eerie 
. oe » ¢ . a rl Po to hr bo wart eae a -sheé er peu Oe re ee ee he be pre et wtgierede 6 a eee ee weer Saree 
' a, . ° rb tse eset Here reper ‘ pr *t Le, eee We if bu ne % ay nie. ed yor eh sere t ree ation SPL OPIS 
« ae . awesn . +eehgoe Tsun Ti 1 ° a Fe eet Oe ome Rb aeeet gy FOE» gee ve * Le ge SL at at Rey Lal fot Pee x t — . 
» a) oo et Ae RPTL Hee RS Aaa ia HAE a NS PHU alas ge Shep at Feat? pa AA Agee og syle yt OP Qetnet te Fiery Teste lata AR a a, 7 te at eel pee fate Kees 
ale ee ‘ ’ ee eC et a ee cr eee hee ee Cre eee ie ere ee eS cm Mera rt ener i) 0- BEM SF artisyogs gies o=y thy i Rin aie chat pda ait fs loo 
.? Laue 2° tree up oa Dee a el OCIS Seni CC a URC CA AIR Fe rt Ue pure RI RUUN Es Abe at tot fy geese ha) Prt naytegrgcare sem eters widentececeares Sil ah iat, bea, Soe. 
« ’ . aoe ’ . two om | ety tte au oom we Teese ds ot ppg eet be 8 Cs he ee SON ptm Eeeehemsy e tree *, See en 
s is . ar) Rave Wie stale Cre Ok Ce Ce ce ie Oe ir ie eer reer ey mk | Ue Ha errr amare Us a tlotaters ors reer pepapetiiepentl halk Abit Bf 4 Se mere-e ere: 
© , > ae . . de rer . as pee s Le ee hee ee wo har Few 8 er® nyt Seaacart PF © ie Et Fe wsentis * Serpe Age LB hue +* AWS he bet ee he bas tJ (Tk a di Wie Pe Fe ENE TOC Le ES fa tnchetntnet 
t eeRree 7 W068 ety tg + OO, we iee Pe ee ee ry + Smet Past POE tea ttle we SHAVE Oy oe Brey Y ee weg? | =r ee eel Ll oe aes Peo ene ary 
7 ¢ ’ > tea Feta SS ire) Hh We Dye Spe etm oo gt tant a ee law aint: URE Re Spey Ie of ee re 
A = = : . * Cae eee ae ae ae ’ Ce re fod Pe) Jena eee ee ee Ae i | sae ¢ - ote ee 
* ays = * «6.4 a6 ' ae >. ve ee : sna weehae ny» . zer , pp a'<'8 wae eo>e . 
: . Ee aa ae pe Beal See Paha e A Oo NSE pS me . " i P 4 ? +a Ppt prin fet hte Risto ASA De he babs I A dibanh toh anak tn 
ae ae eat MOR eee ah ap ens er eS AUC a ag ; ayer ors aad Ana NSU Y ; $ Ph Pde chin cadhadh Died rbd edt fet IA Be tM A a 
« ae- . wed bio trea eas + + aan a er | ’ © wade Veet ea f egese re ew ie pg Saat Shae ih a eee I oeo Segal Ae ee ena 
* eee “ os ¢ foes woe Ma Fee FH toe heme pet hang gorey >t e8 SC or ata aaasaran phil 
= oe os 8 « Fe star Der tt ree 5» «© #£833 © paraded a) at ees Oa ee a ‘4 mysere: wee Riek Ties vet, eerie Petit coe terete treet rite ~~ eee 
2 Ve ‘ » «Pe ft is 6 ’ p i ee ee ee eee ee a hk he 2 RE Deck | Th Mahe died Pe it aa ar Si 2 dade ahha nated Se eee ed 
; ne aes be tee Te Hea aaa tess #8 Gl os Oe OOS CA a Ce UR oe * mite vere hi age lara ge = rhc to tae a ge pram RAMA eal 
. , es eae ee 28 td tate re Poem ere ett po yo a * Pye te Se Peace br pes itcbods Hod, STU | 3 a try vee é “ree ferrets 
‘ 7% ” UI we se fee , ve 2 a Or ee ee a -aey a Y DF OM ae Sepe.y eee vw 6 Orn oe eine 2 wen oN rarbcers ” Viale 7 otf de Batrechctoce reretaane tre 
- > Se ake Es Saar a 18 ‘ ' oe *“#s ©» @ see oo¢ Oe 2st Werte ate tp Pa Wy as beat ‘ Tn Lee ot at 4 saadm-vecgeson erat ‘dy BU aE 
onesre ae ’ fe ‘ t . cf ' i a eer | v8 Pru aee®? e POUu6 op © Bo Uwe 1 gh Reg tt WAS iat Sy! "y! wha ey re rer is me ee i ee Ly fos Ih isle Baht 5, Ea And wee Pp toctics . piace ie toc i tlh pain tait 
ae eae eee toe. . 8) 5S ee ee ee Le et ee ee a 4 0a S50 4 G4 OA ee RE Oe a kg ates fre Be panna wy 8 wees 89 ey ert Li din, 
an (OXs <e ’ eae aeued See Pewee A iat a ee whee yee guy ee pa OY 4 ro) OU BUR a hy ade Oe > Bia Aad | of Bae A Geel Pe Ste 
’ tree . one * . i | ao a ey & . : rate Ls ee ee Be ere ~ aes’ wareratre © san sereve berg. tenors a one 
nee LU “ CS + Vite mae vet» $9" Dawe OCP he # “s oe ee ete wrererarers “ome oer raes pom 
* LJ ' 5 E ' ‘4 * » SS 28 4 ee ‘ woe seb etpen gee PP weg SPO PE 8 Fe Te 
. . ' re va ‘ Poe moe t ae ty bop A th i rs pF Oy he eh aed me we WT RD re ie tad ee ee ties fe eee ede et ie ie 
ey hes fa s . roe ae we toe © ok et RECTAL eae feat ' a ek bee ee eee PP hh ae ee er Ae a Te vo ror Pyne soso ! Si ld) 2 ee FOO TE Te err Ts 
ree ee OF te ALBA Oso. 5 vat atereleaeeete kines RT a ee Rn GR NO aX beg Bh tycatecart: Rt aes Rg O a mee 88S Fe rrr 
* a. - , ss en a e« . oe . . es ee @e a lo’ 404) Fate Volk ae a, iy ee Le by ff 7 ~e re 
‘ oe ener SM Aa) et ee i ee en Oar ee ats 1 Pe pe ro eas tb Oy pa wt Wnt et catgiote, oTy a pueern a Sila pate poop aes abst laa i ae Tyee 08 Bo dict Be 
cee 8 ee ee ts 8 wee ee osae rte oo. Me EN eet 0 aa Migs Waser here Sab naa ee er ete ne wxvbwry Ola bl Bee over D ost w fre ae s $ ro we : cn peeve UST OU Oe «ee ae 
; Py Be Nee + .? af Beau Ce eam bo eemwee w ay Ie thet oe ie i Pe A? ava AR ” or? a i! a ee ay Gita he ta) woe tte ie malady" (2 ida Ih a ih A pa ph tg Tels AR dy ST ctinetheretate ygad artes atnemndl Meera 
. fe Ct oer eee un eye f8  f CNeag sip us) Bee Bible pie cl (state wig Mabeprr eae lacannciin aD Oe ene Deer he eC) porated: Watatesate u 8 ty ictejn Ff Ted 70 tree ced btn beh Segchepeg ate ay wets ty ee ee a, sre" Pant 
or ’ ’ , ’ ae ve eee ee ee ea a vel j ose tsliear tm aM in eleistaralecere Pe edad, So i Teh ke Dee Raabe i ‘Un'p B grata , $s" ig Kes ASS hd ne eee er a teen e ee erirer Tourer rere 
Re ae he Alot Sn el cr ee, De | . o> »%e ae prpteroe tosis “$9 2 4% 3 oe as@, bon 2 isn rhe Hope END a WO . Tam mM iBeD bspte Y bra 8a geme oe ha Ses nici PR: eee Soper le, tees ak os ates 2 
= Sek 6 Ae oe Bo 7 Pe ee Oe ee a Drwit bom, ALS fu SALA Tilt FORSE WY A gr Fy Gow eee Dy) 19 tous 9? oer + he a wt DIOR: 2 ab 
iLenraes oe ‘ Ca ee Jee ar * a ts bets att > de Ae rare Wr ae a eR EL he Be ea oT aA para badd hot 
. e . Cr oe gra a er ee | Pioe soa et ate os entire oe ares eae te pee hia st 
oe i A ee ee cr | ‘ Urea Sa i Neat eee re ee cyt Appts fsa tary 
or > ty ®t seo cet s wy oe wpe i eee 16 ¥ : Te eer tr ' ¢ Ptr toretorom neane Te eee > ae 
es , > we tert ee ra oe Peeve tren rasan ty . ‘i rt s , . tS NC wer oe aes Speen . 
. ef *eepe er of a oe ' *‘ epee re ar a ay a woe ah gk ae “case am a ts cela fe 
ai tit pe I eR Hees et eee a VA congo! AUS CE Per Le eT ee St AC WI ae A eh ne en Feu wm Hh onan ad boda niente, 
’ . . op oe? so @» . , re i te ce er ee: eer uP a % taatasgtacg a e 2 Os . cae = 
nh am Caer ice peep ep nen ase: wha 6 129, WAG 4 il ¥ rae MJ y ee Wee Oy ee y Stee ey 
aur e 6 FM Oe Pre Me eR a ep, tate eb Sep ste eM P ’ hae fot © re a ea eae * a bd tears pn patie de 
‘ a ,bOFe red 8 4, roth g % ag Od co PME ep Be wa Kis . oi ae i ay id Bi Re hy ny , be mea Saar “o areie: , oa ean oreo ie 
. Pee aT ot ie ee Rie pt Baby te we eee te te o ~ thea? eat rary eee Dy ‘ 1 G freer ee w= 8 oe tree? 
eee pb BALIN es GL tA Be ward . ses ’ Pe ee a ee i at Boe Wea eter tera ety é seria wore ora ta re Pema "sees 
Je sae $ = #8 eR Ft boo De ef th eles ra OM Gane ~2 rag “wr 
’ Dee? oon tu Ivo» Pd abe 2 pape SBE Sg wg Oh ee 
' : roM@sbtwes FE AED , eevee 2°? DD Sere Ss Heyer eo See ee 
a ties ns eT) Le oe ee RE TEE a % ee orp 88'S Se PT enn 
ea A I ’ fist as he at vee gets - Epi dadidladiid ty ee ER eines 
« oe 8 Oe veep PF Oh te TOO eam 4 3 "ee re wre roe = 9 o-Ong 
. ' ‘ ee ar | 24 1 1g % & hPa) Ah: Oe et: D pares 4 te Dire eH Ho SY, im teehee pak ea aimee =o er 29" 
he a en i 2 re oe YO Pome Le Tan a 3 2p tem REE TEA WEL Mg MPL ph egeh RCaT PEED Mth wee YD Ceara VU barry *h Or ereerss sa-2-) 0 wa oor aes 
ae a oe er i IP | a3 a yaw lo ouseed pe ay hy hs AO) MEIN? Ghar 99 F th PO OUD arlpeg.g me Ee me 95 onli te A te Dein fivtanas Ey 
2°50 Aa Meyid aa end a be fee 2% B58 rer | 7,042 Wr Res 1% fon hee doa Pe aD, Td bd) pba. Bae Mp Re Wa O EHe Ry DS sae SOs 
Py Abies 75 pe 2 © pt em ol ant Bk ri ves “reg FS te antic reeb a de y% oh Soe Tee free Scarave wove gee Creo e pe ene R eee OTT NT 
ot ‘ oe ieee te u a Fe Wear ST Oh ei deat at " Sop uh “8, anes ea a rae “Ve % wah > ymesiennyy “uy ye take dh Rech Mk JA te 2 2k oe be be Peach Lina ae teat Met, de Sal Da 
« ia ovis got eo a ee ne ro3e tants a tet +5 t's i cS teat aey Co, RNG BID teeB wey ae a Cp da Dao J cl Rf tr ad ac i de Bi 
o8 ae 5s 109 eb “ee BE Tha ak iy . inty > 29” 4 ance Pk a de a es Pk bi ee Sk bd Tp wee rors 
eatin , Ce 7 eh MAowh tye hs eh ete ly ae read Tardis SEMAEETE Tana tate Cees t erate Sra aan oe 
Ler 5° n soe LUA ae Py rh, Gia ala Bd Fo Tic died Akad ch lah de lf th fei J, Nip fal 
vote > wat o % 0s = WY 's FO raeP etait fe OF ba, tah oe 34 dh te beadaere o40k hoe, be 
‘ * de ’ ' % dal > La te | a Vite WS Peete ake 2 Uh we teh WS Gosh SOG ithe kee 
Pas ¢ tage % ’ 5 9 4 ‘ ae ‘eG Rema hare Wi “A Foe NTR EOS Ore Neer erg Ore 8 tee 
bai DORA EC EOE ie te Lh pO A ALK rai JL SE See a an 
- "I + deme vien tsa fe a) Rey % bes wie Ope sete BENE S a Oo FOG Oona We” 
oy anne rae pugs ’ 4 } or s%9 Bk to aT te og-O O28 9 v1 eet tee Pe Oe 
e an cee Fte YD 8 Gore NAW ur 800 TAR eae NOG ere ee: Cataten) r= 9°ore 8. wed eee ONT wee 
te, ap 5,3 Og 6) te Fe % Pa Ou O02 a4 hey iam ents aa Te 
elias s ot a” 6 51RD O32 Be SS iys Zekrg Re at 7% ¢ = ee ee oe te tt dey eo! 68s Ot rw Ee 
” #R ea 80m ame CT ay, ‘ fom 1,9 FS og The? 8: 5 seen asp te 9-29 8-9 are yee 
aS rs RANE Be RSet hh cae cate i: Se el ta ha 
‘ e rar =" teton é eres i ONey “3 . . 5 t Me ws 
Ce LA i o6w lie tah Diset abrupt iS fe ae e rem Me oD byw of PA A bie Oa Fy tatt etry Greet rest PF Pres SS Ps OF we Bere Oe 














f 
Toe CLASSIFICATION OF THIS PAGE 
a 

Form Approved 


i 

' REPORT DOCUMENTATION PAGE OMB No 0704-0188 
j 

; REPORT SECURITY CLASSIFICATION Tb RESTRICTIVE MARKINGS 

in 2 e a A 

= SECURITY CLASSIFICATION AUTHORITY 3 DISTRIBUTION / AVAILABILITY OF REPORT 

| . 

: Approved for public release; 

j DECLASSIFICATION/ DOWNGRADING SCHEDULE Fete atson is Ghlimited 

' 


IPERFORMING ORGANIZATION REPORT NUMBER(S) 5 MONITORING ORGANIZATION REPORT NUMBER(S) 


7a NAME OF MONITORING ORGANIZATION 
Naval Postgraduate School 


6b OFFICE SYMBOL 
(if applicable) 






i NAME OF PERFORMING ORGANIZATION 
aval Postgraduate School 





| 





t 


i ADDRESS (City, State, and ZIP Code) 7b ADDRESS (City, State, and ZIP Code) 
lonterey, CA 93943-5000 Monterey, CA 93943-5000 


8b OFFICE SYMBOL 9 PROCUREMENT INSTRUMENT IDENTIFICATION NUMBER 


(if applicable) 






7 NAME OF FUNDING /SPONSORING 
- ORGANIZATION 





10 SOURCE OF FUNDING NUMBERS 


PROGRAM PROJECT TASK WORK UNIT 
ELEMENT NO NO NO ACCESSION NO 
TITLE (include Security Classification) 


MPLEMENTATION OF A CONFIGURATION AND MAINTENANCE MANAGEMENT SYSTEM FOR 
OCAL AREA NETWORKS 

). PERSONAL AUTHOR(S) 

Hemi son, David G. 

a TYPE OF REPORT 13b TIME COVERED 14 DATE OF REPORT (Year, Month, Day) [15 PAGE COUNT 
aster's Thesis ep tempe she 
| SUPPLEMENTARY NOTATION The views expressed in this thesis are those of the 
uthor and do not reflect the official policy or position of the Department 


£ NeTense oOo alt= Overnmen 
{ COSAT!I CODES 18 SUBJECT TERMS (Continue on reverse if necessary and identify by block number) 


i SUBGROUP . : 
ELD mROU LAN Management, Configuration 





. ADDRESS (City, State, and ZIP Code) 








ABSTRACT (Continue on reverse if necessary and identify by block number) 

he management of Local Area Networks today is one of the most challenging 
asks which face a system manager. The plethora of system software, 
pplication software and accessories available combined with the various 
omputer clones, and open architecture present in microcomputers makes 
racking Local Area Network configuration and maintenance a very daunting 
ask. This thesis modifies a previous design for a Local Area Network 
onfiguration and maintenance database and implements the new design in 
base IV version 1.1 using the Naval Postgraduate School Administrative 
Clience Department Local Area Newtworks as a prototype database. The 
atabase was designed to be simple to use, to protect data integrity and 

O be expandable to new equipment, new technology and new data applications 
ue to its general nature, the Local Area Network Maintenance and Config- 
ration System can be used on virtually any Local Area Network application. 


) DISTRIBUTION / AVAILABILITY OF ABSTRACT 21 ABSTRACT SECURITY CLASSIFICATION 
CXUNCLASSIFIED/UNLIMITED (2) SAME AS RPT C otic users | UNCLASSIFIED 


a NAME OF RESPONSIBLE INDIVIDUAL 22b TELEPHONE (Include Area Code) | 22c OFFICE SYMBOL 
Orman F. Schneidewind 408)646-2494 A 


) Form 1473, JUN 86 Previous editions are obsolete SECURITY CLASSIFICATION OF THIS PAGE 


S/N 0102-LF-014-6603 a oe NOc 
TORQN9E 


a 


Approved for public release; distribution is unlimited. 


Implementation of a Configuration and 
Maintenance Management System for 
Local Area Networks 


by 
David G. Dickison 
Lieutenant, United States Navy 
B.S., University of Kentucky, 1983 


Submitted in partial fulfillment 
of the requirements for the degree of 


MASTER OF SCIENCE IN INFORMATION SYSTEMS 
from the 


NAVAL POSTGRADUATE SCHOOL 
September 1992 


ABSTRACT 


The management of Local Area Networks today is one of the most 
challenging tasks which face a system manager. The plethora of 
system software, application software and accessories available 
combined with the various computer clones, and open architecture 
present in microcomputers makes tracking Local Area Network 
configuration and maintenance a very daunting task. This thesis 
modifies a previous design for a Local Area Network configuration 
and maintenance database and implements the new design in dBASE IV 
version 1.1 using the Naval Postgraduate School Administrative 
Science Department Local Area Networks as a prototype database. 
The database was designed to be simple to use, to protect data 
integrity and to be expandable to new equipment, new technology and 
new data applications. Due to its general nature, the Local Area 
Network Maintenance and Configuration System can be used on 


virtually any Local Area Network application. 


ak ab al 


TABLE OF CONTENTS 


IT. INTRODUCTYTe:) 
A. TERMINOLOGY 
B. THE LAN CONFIGURATION AND MAINTENANCE PROBLEM 
C. A LAN MAINTENANCE AND CONFIGURATION DATABASE 
Ss) Ses) 


De PURPOSESOl Shao 


Tl. OMS It EM PE Oolon 
A. THE OLD DESIGN 
1. Cable Plant Equipment 
2. Maintaining Referential Integrity 
3. The Concept ef a Ssyseemeunrt Ob yEect 
B. THE NEWSDESIsSh 
1. The New Drive Object 
2. Changes to Data Fields 


3. System unit and Node Objects Revisited 


bi os IMPLEMENTATION 
A. METHODOLOGY 
1. Implementation Goals 
a. Data Integrity 


b. User-System Interface 


LSA 


skal 
eZ 
dy 
slg 


diye: 


20 
20 
20 
20 


Zu 


c. System Flexibility 
a. System Expandability 
e. System Maintenance 
2. Data and Object Access 
3. Security Issues 
4. Main Menu Organization 
Bolas DATABASE TOOL 


€- THE SYSpareecelOly PE 


ivy. CONCLUSIONS AND LESSONS #@EARNED 
Pe CONCLUSIONS 
1. Satisfaction of Requirements 
2. Database Tool Effectiveness 
B. GESSONS DEARNED 
1. Coding Requirements 
2. Requirements Changes 


3. User-Designer Communication 


Vee COMMENDATIONS FOR FURTHER SYSH#2M ENHANCEMENTS 
a, ADDITICN@OF A MAINTENANCE REPORT OBJECT 
B. SQL COMMAND LIBRARY 


C. IMPLEMENTATION OF A FRONT END EXPERT SYSTEM 


Pernt A A 
A. GENERAL OPERATION 


1. Moving around in the Application Main Menu 


jp 
oe 
24 
24 
Ze) 
Ze) 
Zag 


22 


30 
30 
0 
30 
am 
eal 
a) iL 


a2 


34 
34 
34 


32 


36 
BG 


36 


oe 


Using Pop Up Menus 

Data Entry on Formatted Data Record Screens 
LAN MENU 

Nodes Submenu 

The System Unit Submenu 

The Drives Submenu 

The Accessories Submenu 

The Application Software Submenu 
The System Software Submenu 

The Cable Plant Submenu 

SPARES MENU 

The System Unit Submenu 

The Drives Submenu 

The Accessories Submenu 

The Application Software Function 
The System Software Function 

The Cable Plant Function 

REPORTS MENU 

The LAN Submenu 

The LAN Equipment Submenu 


The Spares Submenu 


THE oul T Vien 


i 


ae 


The Maintenance Submenu 
The SQL Function 
The Quit to DOS Function 


The Quit to Control Center Function 


571 


36 
5 
38 
28) 
oy, 
40 
40 
40 
4l 
41 
42 
43 
44 
44 
44 
44 
45 
45 
45 
46 
46 
46 
4’] 
477 
47] 


4‘] 


F. ADDING AND DELETING KEY FIELD VALUES 


Cee RECURNONG =O THE APPLICATION FROM THE CONTROL 


CENTER 


H. SUMMARY 


APPENDIX B-SYSTEM MENUS 


APPENDIX C-DATA ENTRY SCREENS 


APPENDIX D-RELATION DEFINITIONS 


APPENDIX E-PROGRAM FILES AND DEFINITIONS 


A. DATABASE FILES 


Be MENU er oes 


Ge DATAVENTRY FORMAT FILES 


De RSeECR. FORMAT FILES 


poo, ole Me APPLICATION FILES 


APEENDIX F- APPLICATION PROGRAM FILES 


i 


De 


Acc_Ed 
Acc_ent 
Acc_del 
Acc_S_Ed 
Acc_S_Del 
ING Sagi 


Add_app 


ae 


48 


AQ 


50 


aul 


61 


64 


67 
oF 
68 
So 
70 


gil 


ihe 
ue 
74 
qi. 
WY 
78 
re 


80 


Loe 
Bie: 
lege 
lee 
14. 
ES, 
LEG, 
ube 
ise 
Is) 
FO 
2 I 
Zo: 
232. 
24. 
Zoe 
ONS 
Zin 
2S. 
Zoe 
3.05 
Bal 
ais 


3237, 


Add_Node 
Add_Sys 
App_Del 
App_Ent 
App_spa 
Cabl_Add 
Cabl_Del 
Cabl_Sp 
Driv_Del 
Drive_Ent 
DigzwwOuer 
Dr.S Del 
Bhar Sy Jaaie 
Dr_S_Que 
Get_Unit 
Nodent_1 
Nodent_2 
Node_Cch 
Node_Del 
Node_Ed 
Node_Que 
N_Choice 
Spare_Qu 
Sys_Del 
Sys_Ent 


SvSeopa 


Vill 


81 
82 
83 
84 
86 
87 
88 
90 
70 
92 
93 
94 
96 
97 
oF) 
100 
gE G 
107 
ae 
Laat 
1a 
as 
114 
NLS 
ih 


Hee) 


34. 
Son 
S18) ¢ 
OI. 
588 
BS) 
4Q. 


41. 


fier OF REFE 


BIBLIOGRAPHY 


Piet Abeer STREBYy TLON “LIST 


Omit = 2 
Unit_Add 
[palmie acl 
met Bent 
art Ou 
Unit_Rem 
UnivSomel 


Un_Sp_Ed 


RENCES 


1X 


20 
ZS 
WZ6 
Zo 
Ieeit 
3 
134 


1ES6 


LBS 


140 


aa 





I. INTRODUCTION 


A. TERMINOLOGY 

It is assumed that the reader is conversant with the terms 
associated with microcomputers and Local Area Networks. In 
the following discussions, a node refers to a station on a 
network. A node is usually a microcomputer but can be a 
peripheral device such as a printer. A server refers to a 
microcomputer node which is responsible for supplying 
services, such as application software or printing, to the 
other computers on the LAN. A user refers to a computer node 
which receives services from a server. A user/server refers 
to a computer node which acts as a server to other nodes on 


the network, but can also function as an end user. 


B. THE LAN CONFIGURATION AND MAINTENANCE PROBLEM 

Local area networks have gained widespread use and 
acceptance in business and education. They offer economy of 
scale by allowing users to share accessories such as printers, 
plotters and network bridges. For the system manager, a Local 
Area Network (LAN) also offers the opportunity to enforce 
organization software standards, something not easily 
enforceable with stand alone microcomputers. Unfortunately 


along with these advantages, local area networks can create 


interoperability problems which seldom occur with stand alone 
microcomputers. 

Microcomputer clones from different vendors will often use 
different interrupt levels for their drives and accessories. 
While this is not usually a problem for a stand alone 
computer, it may cause serious compatibility problems when 
linking many computers from different vendors on the same 
network. Local area network boards often can only operate on 
one or two interrupt settings. If these settings are already 
taken by another card, drive or accessory, ae serious 
compatibility problem may arise. For this reason, on Local 
Area Networks, it 1s vital to keep track of what interrupts 
are being used by which devices on each computer on the LAN. 

The compatibility problem aside, documentation of the 
configuration of each node on a LAN can be a monumental task, 
especially on larger LANs. It is conceivable that every node 
on a LAN could have a different configuration with various 
accessories, system software, application software and disk 
drives. In order to effectively and efficiently maintain a 
LAN and its associated hardware, the configuration records 
must be readily available for each node and available spare 
parts documented. In summary, to effect proper maintenance 
and avoid configuration compatibility problems, it is vital 
for the LAN manager to have at his disposal detailed records 


for each node on a LAN regarding the node’s drives, 


accessories, and application and system software and to have 


a detailed record of spare parts and hardware. 


C.. A LAN MAINTENANCE AND CONFIGURATION DATABASE SYSTEM 
The maintenance and configuration problem stated above can 
be effectively tackled by implementing a relational database 
application through database development tools. The dBASE IV 
Version 1.1 database development tool was chosen to implement 
this particular application for the following reasons: 
¢ The dBASE IV 1.1 tool was a mature technology which was 
familiar to a large body of database developers. Thus it 
would probably be easier to maintain than some lesser used 
tools or languages. 
e GBASE IV 1.1 can be installed on the LAN or LANs to be 
documented. It is compatible with most operating systems 


and network operating systems. 


ne Gecsok ny i.) “tool was available on OnG@wmoOfe the 
prototype LANs. 


* The author was conversant with@®the dBASE IV 1.1 tool. 


The system design was modified from a design from Brewer 
feet. 1)": It was desired to modify the original design as 
little as possible as this project was primarily an 
implementation. However further analysis of requirements and 
design implementation revealed that the Brewer design had 
shortcomings which required modification in order to improve 
the flexibility, usability and adaptability of the system. 


These shortcomings will be discussed later in detail. 


D. 


PURPOSE OF THIS THESIS 


The main purpose of the work was to effectively implement 


a LAN maintenance and configuration system which could be run 


on a LAN. This task was successfully completed. Personnel 


training on the system was also conducted and a users guide 


created to teach systems managers about system capabilities. 


The 


the 


following topics and themes will be treated in the body of 
work: 

The rationale behind the changes made to the original 
system design. 


The features, functions and applications which the 
implementation 1s capable of performing. 


The design philosophy which drove the redesign and 
implementation of the system. 


The effectiveness of the dBASE IV tool in implementing the 
database design. 


Lessons learned and difficulties encountered not related 
to the dBASE fyi reco 


Possible follow on improvements and applications. 


II. SYSTEM DESIGN 


A. THE OLD DESIGN 


The object and relationship diagrams for the design 
created by Brewer [Ref. 1] are shown on the following pages as 
figures 1.1, 1.2 and 1.3 respectively. This design, which was 
a modification of a previous design by Suriano [Ref. 2] had 
many good qualities. The design used an object oriented 
approach as proposed by Kroenke and Dolan [Ref. 3] to develop 
objects and relations among the various objects. It also 
created many useful fields for the objects which enabled the 
user to enter a great deal of information on hardware types 
and settings which would aid the system manager in 
configuration decisions. While most of the fields proposed 
were implemented into the new design, many of the objects and 
relationships required changes. Interviews were conducted 
with Professor N. Schneidewind and Leon Sahlman [Ref. 4], the 
users and system managers of the Administrative Science 
Department LANs. The main purpose of the interviews was to 
verify system requirements and address any design problems. 
In the course of the discussions, several justifiable new 


requirements and design problems were identified. 
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OLD OBJECT DIAGRAMS (CONT) 
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FIGURE 1.3- OUD RELATIONSHIP DIAGRAY 


1. Cable Plant Equipment 

Cable™Plant Equipment within this discussion refers to 
LAN equipment or hardware which is used to connect nodes and 
peripheral equipment oor to supply power to nodes and 
peripheral equipment. An example would be the Multi Access 
Units (MAU) used on the IBM token ring network to connect 
nodes into a logical ring/physical star configuration. 
Brewer’s design had cable plant equipment as a multi-value 
relation of the node object. While some of the cable plant 
equipment could be related to nodes in a LAN, much of the 
cable plant equipment, multi access units for example, could 
not be related to a single node. Therefore it iS more 
appropriate to treat cable plant equipment as a relation to 
the LAN object under which all cable plant equipment could be 
associated. 

2. Maintaining Referential Integrity 

Brewer treats the accessory, cable plant, application 
software and system software relations with the node object as 
one to many. Although this design can certainly be 
effectively implemented, the one to many relationship does not 
fully utilize the data control and display capabilities of the 
GBASE IV 1.1 database tool. Additionally, the one to many 
relationships allow for the possibility of modification 


anomalies in the data. 


In order to help enfogse faced pte, 7 een 
desirable in any database application to limit the data 
choices which the user may enter into the database. This is 
especially critical if the field in question is a key field. 
A slight typographical error on the user’s part in the key 
field can prevent the system from locating the desired record. 
Using a many to many relationship approach, all the desired 
values for a particular key field can be stored in a database 
file. Then any time a value must be entered into the field, 
the acceptable field values can be displayed using a pop up 
menu. This allows only the desired field values to be entered 
into the database and greatly increases the data integrity of 
the database. 

A further advantage froma design interface standpoint 
is that the user does not have to remember data fields. The 
user only has to recognize the desired field from a pop up 
menu. In this way the user friendliness of the system-user 
interface is increased. 

It is also desirable to have the possible choices for 
key data fields on record in the database for query purposes 
even if there are no records in the database presently using 
the given field value. This serves to avoid modification 


anomalies involving key fields. 


JEG 


3. The Concept of a System Unit Object 

During discussion with the users, it became evident 
that a new object needed to be added to the database. The 
users viewed the actual microcomputers, or system units as a 
different entity than the nodes on the LAN. A node was viewed 
as a position on the LAN. This position or node could be a 
microcomputer (system unit) or as in the case of the Apple 
Talk LAN, even a printer. <A node, by definition had to be 
associated with a particular LAN. A node could not be moved 
from one LAN to another without changing the node name. This 
made the present node name useless as a key field. 
Additionally, the users found it desirable at times to query 
the node equipment by the system unit serial number. The 
system unit hardware was identified by the hardware serial 
number whereas the node was identified by its parent LAN and 
its purpose in the network. To further confuse the issue, 
faulty system units assigned to nodes were occasionally 
replaced with different system units which changed the system 
unit assigned while leaving the node name the same. 

The approach taken to solving this problem was to 
break the old node object into two new objects, a new node 
object and a new system unit object. The new node object kept 
1ts many to one relationship with the LAN object and described 
the node’s function or purpose in the network. This new node 
object also had a one to one relationship with the new system 


unit object which contained all the hardware related 


11 


microcomputer attributes. This arrangement, although adding 
complexity to the database, had the great advantage of 
allowing nodes to be used as key fields and to remain with 
their respective LANs. Meanwhile, system units, the actual 
hardware, could be moved from LAN to LAN or be completely 
removed from any LAN and still be effectively tracked in the 
database. Thus in the new approach, the node is viewed as a 
virtual part of a network which can take on hardware (system 


unit) and software attributes. 


B. THE NEW DESIGN 
Figures 2.1 through 2.4 on the following pages give the 
object and relationship diagrams for the new modified design. 
The main design changes involve the following: 
e Making the cable plant object a relation of the LAN object 
vice that of the node object. 


« The old node object was broken down into two new objects: 
a new node object and a system unit object. 


« The cable plant and LAN objects were associated in a many 
to many relationship. 


* The two software objects were associated in amany to many 
relationship with the new node object respectively. 


« The accessory object was given a many to many relationship 
with the system unit object. 


*« The accessory object was broken down into two new objects: 


a new accessory object and a drive object. 


2 


SYSTEM UNIT NO. 

CPU MODEL NO. 

CPU SPEED 

CPU SERIAL NO. 
PHYSICAL BOARD MEM. 
PHYSICAL ADD ON MEM. 
LOGICAL EXPAND MEM. 
LOGICAL EXTEND MEM. 
CACHE MEMORY 

BIOS MAKER 

BIOS VERSION 

KEY COMPATABILITY 
COMMENTS 


NODE ID. 
PURPOSE 
COMMENTS 


SYSTEM UNIT 


APPLICATION S 
MV 


SYSTEM SW 





NODE 
ACCESSORY 





CABLE PLANT 





SYSTEM UNIT 





CABLE PLANT 
FIGURE 2.1 -NEW OBJECT DIAGRAMS 


7 


ACCESSORY ID 
ACCESSORY NAME 
ACCESSORY TYPE 
lO PORT 

IRQ SETTING 

DMA SETTING 

IO ADDRESS 
QUANTITY 
COMMENTS 


SYSTEM UNIT 


DRIVE ID 
DRIVE LETTER 
DRIVE TYPE 


HEADS 
CYLINDERS 
SECTORS 
LANDING ZONE 
WRITE PRECOM 


SIZE 
COMMENTS 


SYSTEM UNIT 


ACCESSORY DRIVE 





SYSTEM SW NAME 
DEVELOPER ee SW NAME 


QUANTITY QUANTITY 


MV MV 





FIGURE 2.2 "NEW OBJECT DIAGRAMS (CONT) 


14 





TO SYST TAT OBIECT aoe 
(SEE PIG 2.4) ai ah 


Pique 2.3-Relataonship Diagrar 


lle. 


FROM NODE OBJECT 
(FIGURE 2.3) 


SYSTEM UNIT 





Figure 2.4 -Relationship Drawing (Cont) 


16 


1. The New Drive Object 

The rationale for the first five changes are 
documented in the previous section. The last change, breaking 
the accessory object into two new objects, a new 
accessoryobject and a drive object, was done for several 
reasons: Drives and accessories used very few of the same 
fields in the old object, so it made sense from a housekeeping 
Standpoint to separate them into two different objects. 
Secondly, most users do not consider drives to be an 
accessory, but an integral part of the system unit. Finally 
drives often require more maintenance and repairs than other 
accessories. Creating an object for drives allows for better 
records of drive maintenance and easier access to the records. 

2. Changes to Data Fields 

Some minor changes were also made to some of the 
fields in the new system unit object and the accessory object. 
These changes generally consisted of either dropping a field 
because the users deemed the field unnecessary or changing the 
field nomenclature to make the meaning of the field more clear 
and useful to the users. This was particularly true in the 
fields related to system unit memory where more descriptive 
fields and field names were desired by the users. Most of the 
field changes affected non-key fields. Two fields which were 
created which were key fields were the sys_unitno field for 


the new system unit object and the Drive_ID field for the new 
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drive object. These two fields deserve special mention since 
they are the primary key field for the system unit and drive 
objects, respectively. 

3. System unit and Node Objects Revisited 

Creation of a new system unit object and new node 
object significantly changed the relationships between the 
objects from what they had been with the old system. In light 
of this, further discussion of their relationship with each 
other and with the other objects is desirable. 

In essence, the node object can be thought of as being 
Nyelieter ellie It does not exist aS a piece of equipment or 
anything physical but as a station on a network which has 
certain software attributes and certain hardware attributes. 
All of the node’s hardware attributes are related to it 
through the system unit object which is assigned to it. The 
system unit on the other hand, has all of the physical 
attributes such as accessories, and drives and none of the 
network attributes. 

Having the software related to the node instead of the 
system unit may at first seem to cause problems. It must be 
remembered that the system is designed to track local area 
network configurations. The software, except for the spare 
software is of no importance when it is associated with 
equipment which 1S not part of a local area network. If the 


system was also required to track stand alone microcomputers, 
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this would be a serious design deficiency. Instead, by 
relating the software to the node, software stays with the LAN 
even if the system unit is changed out. This turns out to be 


a more logical representation of LAN operations. 
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III. IMPLEMENTATION 


A. METHODOLOGY 
1. Implementation Goals 
The implementation stressed the following themes in 
the system structure, design and user-system interface. 
a. Data Integrity 

It 1S critical in any database application that 
the data, especially the key fields, be protected as much as 
possible from user input errors. A small typographical error 
while entering a key field could make it impossible to recall 
the data record from the database file without system operator 
intervention. It ais therefore very important in the 
implementation for the user to have as little direct input of 
key fields as possible. 

This was accomplished by using database files 
which contained correct key field choices. The correct key 
field choices are displayed using a pop up menu and the user 
simply chooses the correct key field from the list. No direct 
data entry is required by the user. Key data field choices 
may be changed, added or deleted by a system operator with a 
rudimentary familiarity of the database tool, in this case 
GBASE IV 1.1. This greatly reduces the chance of losing data 


records. Only two key data fields in the design can presently 
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be entered directly by keyboard: the system unit number and 
the node identification code. Only the system unit must be 
searched for by entering the field directly. A node, after it 
1s entered into the database, may be located by its local area 
network using pop up menus. 

b. User-System Interface 

A database 1s useless unless people actively use 
the system. While this may seem intuitively obvious, even the 
most powerful database application may sit in a proverbial 
‘corner’ gathering dust if the user-system interface is so 
cumbersome and difficult to understand that it intimidates a 
user. 

In this light the database system implementation 
was designed to be as straightforward and simple as possible. 
A menu system is used which clearly details the various 
functions and capabilities of the system. Most of the queries 
also involve using visually appealing and easy to use pop up 
menus. All input errors invoke concise and useful error 
messages to be generated and system use message prompts are 
used liberally throughout the application. 

From an ergonomic point of view, the Dbase default 
screen colors of bright white and blue were found to be 
satisfactory. The two colors allowed good contrast while not 


being overly wearing on the eye. 


a 


c. System Flexibility 

Given the rapid change in technology which the 
computer industry 1S undergoing, it is likely that these 
changes will also be felt in LAN hardware and software. A 
fine example of this is the CD ROM which is now available on 
the market. Any database system which attempts to document 
this hardware and software must have the inherent flexibility 
to add new equipment and software as it comes available 
without requiring wholesale changes to the database 
application. The system implementation allows for the adding 
and deleting of new types of drives, accessories, cable plant 
equipment and software as the technology changes through the 
Dbase IV control center. The key field identifiers for the 
accessories and software are stored in database files in the 
application. An individual moderately familiar with Dbase can 
easily make these changes. Barring major architectural design 
changes, this built in flexibility will allow the database 
application to remain useful with very few changes almost 
indefinitely. 

d. System Expandability 

The key to any successful database is the well 
thought out and systematic design of its data objects and 
relations. If a database 1S properly designed, the 
applications the design is capable of providing are almost 
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This implementation focused on data input, edit, query and 
delete functions. While these are necessary for the proper 
functioning of the database, the true power of any database 
lies with add hoc queries, reports and the data management 
functions the system 1s capable of performing. 

Tt 1S rare that all of the requirements for a 
project are known at the start of a system deSign. A good 
design however allows for the addition of functions which 
conform with the previously defined data fields, data objects 
and relations. 

This application (and indeed the dBASE IV tool) is 
designed to allow easy addition of new functions as new 
requirements are identified by the users (as they always are 
in an evolutionary design process). Adding functionality to 
this database is made relatively easy by the built in design 
modularity of the dBASE IV 1.1 tool. Only very minor changes 
to the main application pop up windows are required to add 
new functions. Even new objects may be added without changing 
the basic database structure. 

Tt iS envisioned that further requirements and 
system functionality can be easily added, possibly as a follow 
on thesis topic by a person who has access to the system 
design and is a competent dBASE IV 1.1 programmer. In this 


way the system can grow as user requirements grow and change. 
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e. System Maintenance 
Although the database application went through 
extensive testing of its functions, it is realized that not 
all bugs will be found. Fortunately, the dBASE IV 1.1 
modular programming approach enforces structured programming 
techniques. Proper programming nomenclature and format and 
extensive notes and comments are used throughout the code. 
Additionally, to assist in identifying programs, a list of 
programs by file name and their respective functions is 
included in the Appendix of this document. 
2. Data and Object Access 

Together the system unit and the node are the focus of 
this database application. All of the other objects fan off 
as relations of these two objects. This is true not only of 
the system design, but of the way the users approach the LAN. 
Once the system manager determines which LAN is desired, the 
next logical thought process iS which node needs to be 
located. Since drives and accessories are related to the 
system unit on a given node and software is related to the 
node, all or any part of this information can be located by 
choosing the correct LAN and then the specific node in the 
LAN. 

This thought process is implemented by uSing a pop up 
menu which contains all the possible LAN choices. Once a LAN 


is chosen, the nodes associated with that particular LAN are 
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displayed in another pop up menu. Depending on which 
application is chosen by the user, accessories, resident 
software, drives or the node or system unit may be edited, 
deleted or added. This procedure 1s graphically illustrated 
in figure 3.1 where a monitor associated with node ENET2 of 
the 3COM Ethernet LAN is located using pop ups. Accessories, 
drives and system units may also be located directly by 
entering their associated system unit number. 

Two exceptions to this approach are the spare parts 
and the database files which contain the key field choices. 
Access to spare system units, accessories and drives is 
provided directly by choosing the desired object by its 
identification number off of a pop up menu as graphically 
depicted in Figure 3.2. This is necessary since the spares 
have no association with a LAN or anode. Any changes to the 
key field choices is accomplished by entering the dBASE 
control center and entering the data file directly. These 
procedures are further delineated in the Users Manual located 
in appendix A of this document. 

3. Security Issues 

Limiting access to the LAN Configuration and 
Maintenance System is desirable. The system program and 
database files could be seriously damaged or altered by a well 


meaning but inexperienced operator or a computer vandal. 
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FIGURE 3.1- LAN EQUIPMENT LOCATION 
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FIGURE 3.2- SPARE PARTS LOCATION 
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Most LAN operating systems allow the system operator, 
and sometimes even users to classify files on the server and 
limit file access. This capability would be sufficient to 
safeguard the system files. Access to the actual program can 
be controlled in several ways. dBASE IV 1.1 has an available 
password function which may be invoked. Another option is to 
build a password fumction into the batch file which calls the 
application. 

4. Main Menu Organization 

The main menus for the database application are the 
LAN menu, the spares menu, the reports menu and the quit menu. 
Figure 4 depicts the application main menu screen with all of 
the pop up menus displayed (normally only the pop up which is 
chosen on the bar menu is visible). All of the menus are 
arranged in an object-action style. 

The LAN menu contains all of the submenus and 
functions for adding, deleting, editing and querying all 
objects associated with a given LAN. The spares menu executes 
the same functions for the spare parts. The reports menu 
generates reports on LANs, their equipment and spare parts. 
The quit menu allows the user to exit the application either 
to the control center or the network operating system. The 
quit menu also allows for database backup, database record 
packing and SQL queries. The reports section was separated 


from the LAN and spares menu to allow expanding the system’s 
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FIGURE 4@.- MAIN MENU WITH ALL PULL DOWN MENUS SHOWN 
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report and query generation capability while requiring 


changes to as few menus in the main application as possible. 


B. THE DATABASE TOOL 

As previously mentioned, the database tool chosen to 
implement the application was dBASE IV 1.1. It 1S a very 
mature tool which the designer was familiar with and which was 
also available on the Administrative Science Department’s 3COM 
LAN. 

The dBASE IV 1.1 tool has the power and flexibility 
necessary to easily implement the database application. All 
of the above stated goals were achieved through use of the 
database tool. The pop up menu approach especially fit in 
well with achieving the desired goals. 

One swrcaturewor GSAcEH IV J.1 which may turn out to be 
extremely useful in the future 1S its compatibility with 
several expert systems such as VP Expert. Using an expert 
system as a front end to the database, the queries which the 


system could perform would be greatly expanded. 


C. THE SYSTEM PROTOTYPE 

The system prototype was designed on a stand alone 
microcomputer and then tested on the Administrative Science 
Department 3COM Local Area Network. The prototype was not a 
‘throw away’ and was designed to be ultimately implemented. 


System tests on the 3COM network proved satisfactory. 
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IV. CONCLUSIONS AND LESSONS LEARNED 


A. CONCLUSIONS 
1. Satisfaction of Requirements 

The design and implementation of the LAN Configuration 
Maintenance and Management System satisfied user requirements. 
Additionally, the system is designed in such a manner that 
many follow on requirements and upgrades can be implemented. 
It is expected that the system will provide a useful and 
versatile tool to LAN system managers. 

2. Database Tool Effectiveness 

The dBASE IV 1.1 database tool readily met the 
challenge of implementing the system design. It has many 
built in fwnctiens whitteh assist@met onlvewithwsnlr cee re 
technical specifications and requirements of the system, but 
also in fulfilling the more subtle implementation goals of 
user friendliness, expandability, maintainability and database 
integrity. 

Another advantage of the dBASE IV 1.1 tool as 
mentioned previously is its compatibility with many expert 
systems. An expert system can be used as a front end to a 
database combining great user friendliness with substantial 


query capability. 
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time cle Cero ly em Cool 1S very powerful, it 1s 
not particularly easy to learn. It requires a system designer 
knowledgeable not only in database design techniques, but also 
in structured programming and the dBASE IV programming 
language. The coding and testing of applications was often a 


long and arduous process. 


B. LESSONS LEARNED 
1. Coding Requirements 

The time required to write code for applications was 
continuously underestimated. Although a large amount of time 
was allotted to the project for code writing and testing, at 
least twice as much time was spent in this phase as expected. 
This was due partially to a fairly steep learning curve by the 
programmer in learning the functions and versatility of the 
Dbase language. In addition, there seems to be a natural 
tendency in any software development program, even on the 
larger scale developments, to be overly optimistic regarding 


time constraints when code writing and testing are involved. 


2. Requirements Changes 
In any system development process, justifiable 
requirements and design changes will happen throughout the 
course of development. Even the best thought out requirements 
will probably require at least minor changes. This is only 


natural since users often only have a vague idea at first of 
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how the system 1s capable of helping them. Since requirements 
changes are simply the nature of the beast in all but the most 
well defined and mature systems, the system designer must be 
able to prepare and react to these changes. 

The system must be designed to allow for as much 
change as possible. While this 1S very application and 
database tool dependent, most of the new tools use structured 
programming techniques which makes changes and program 
Maintenance much less painful. Even more important, the 
objects and relationships must be designed to allow for as 
much change as possible. 

3. User-Designer Communication 

For the system to evolve properly, the system designer 
must keep in contact with the users throughout all phases of 
the system development. The earlier any requirements changes 
are learned, the less work is required to implement the 
necessary changes. 

This approach is especially important when different 
personnel are executing the various phases of the development 
process. System documentation does not always adequately 
express user concerns or fully answer design questions. Even 
with well documented systems, it is advisable to interview the 
users aS soon as possible. Contact with the other personnel 
involved in the development process in also highly 


recommended. 
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This particular implementation required changes, some 
major and some minor, to system deSign and requirements 
throughout the whole development process. All of the changes 
were desirable and beneficial. Without constant communication 
with the users, it is doubtful many of these changes would 
have come to light until much later in the development process 


causing serious development and implementation delays. 
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V. RECOMMENDATIONS FOR FURTHER SYSTEM ENHANCEMENTS 


The development lifecycle of a software system does not 
end until the system 1s replaced. Enhancements, new 
applications and system maintenance are an ongoing fact of 
life. There are several excellent applications any one of 
which would make a very useful addition to the system and an 


interesting thesis topic. 


A. ADDITION OF A MAINTENANCE REPORT OBJECT 

The addition of a maintenance report object along with 
associated applications would allow tracking of all 
Maintenance on the LANs and their associated equipment in the 
database. This enhancement would provide a very powerful tool 
for system management, allowing statistical and trend analysis 
to be performed on the LAN equipment through queries. 

The new report object would not require any changes in 
system objects or relations presently in the database. With 
the exception of a report identification number, only key 
fields already in use would be used. Only minor changes to 


the main application menu system ' would be required. 
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B. SQL COMMAND LIBRARY 

The dBASE IV 1.1 tool is able to use the standard SQL 
language to make queries. A library of SQL queries for the 
database can be created to enhance the capability of the 
system. This would require no change in the database 
structure since the system 1s capable of performing SQL 


queries. 


C. IMPLEMENTATION OF A FRONT END EXPERT SYSTEM 

As previously mentioned, the ability of Dbase to interface 
with many decision support systems and expert systems makes 
these tools ideal as a front end to the database. A properly 
designed expert system front end would allow queries to be 
performed and programmed with much greater ease and 
flexibility. These powerful and user friendly tools have to 
potential of adding a whole new dimension to the present 


system. 
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APPENDIX A 


USERS MANUAL 


A. GENERAL OPERATION 
1. Moving around in the Application Main Menu 
The application main menu consists of a bar menu at 
the top of the screen and a pull down menu which gives the 
options for the highligmted pertion of the bar mem. Tne ween 


menu choices are as follows: 


e LAN 
e SPARES 
¢ REPORTS 


o OUT 


The highlighted bar menu choice will always display 
its associated pull down menu. The bar menu choice is changed 
by using the horizontal arrow keys on the keyboard. The 
choice highlighted on the pull down menu can be changed by 
using the up and down arrow keys on the keyboard. A choice on 
a pull down menu is accepted by highlighting the desired 
choice and pressing enter. 

2. Using Pop Up Menus 
Choosing an option off of one of the main screen pull 


down menus will either invoke a system application or a 
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submenu. Pop up submenus invoked from a pull down menu behave 
the same as for the pull down menus. The desired application 
is chosen by highlighting it using the horizontal arrow keys 
and pressing the carriage return key. Pop up submenus may be 
backed out of by pressing escape. This will return the user 
to the previous menu. 

Pressing escape while in one of the main pull down 
menus 18S, however to be avoided. This may lead to the main 
program being exited without saving database record changes. 
The main menu should always be exited by using the exit 
options available on the quit pull down menu. 

3. Data Entry on Formatted Data Record Screens 

Most of the Objects in the LAN Maintenance and 
Configuration Database System have formatted record entry 
templates which present a user friendly screen on which to 
enter the necessary data fields for the record. When such a 
screen is invoked for editing an existing record or adding a 
mMeegorewenhne Cursor Will be an the first field of the record. 

The cursor may be moved forward to the next desired 
field in two ways. The tab key may be used to advance to the 
next field or the user can space bar forward. When using the 
latter method, the cursor will skip to the next data field 


once it reaches the last space in the present data field. 
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The cursor may be moved backward to a previous data 
field by using the shift-tab key combination. Backspacing 
will also accomp lsh ease 

Again, using the escape key is to be avoided when in 
a record template. This could lead to records being lost or 
only partially saved. The proper way to exit a record 
template iS to carriage return through all of the data fields 


(hopefully filling them with data along the way). 


B. THE LAN MENU 

The LAN menu 1s for adding, deleting, queries or 
modifications to any of the nodes, software or equipment 
assigned to the LANs in the database. There are presently two 
methods of locating LAN equipment in the database and one 
method of locating nodes and software. 

The first and easiest method for locating equipment 
records in the database is by locating the equipment’s LAN and 
node through the use of pop up menus. The second method is to 
enter the system unit which the equipment is associated with. 
The first method is decidedly easier since the user only needs 
to know the LAN and node which the equipment is on and this 
information 1s displayed using pop up screens. 

The following 1S a summary of the system applications 


which are available on the LAN pull down menu: 
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1. Nodes Submenu 
The nodes submenu is invoked by choosing nodes on the 
LAN pull down menu. This system applications of this submenu 


perform the following functions: 


« Create a new Node: This choice gives the user a second 
pop up menu which displays two system applications: 1) The 
choice of creating a new node and then adding a new system 
unit which 1s not in the database. 2) Creating a new node 
and assigning to it a system unit which is already in the 
database system. 


¢« Change a node System Unit: This allows the system unit 
assigned to a node in the database to be changed to 
another system unit. The new system unit must already 
exist in the database. 

¢ Edit a Node: Allows a node to be edited. 


* Delete a Node: Deletes a node and its associated software 
from the database. 


¢ Query a Node: Displays the Node information and its 
associated software and equipment. 
2. The System Unit Submenu 
The System Unit submenu is invoked by choosing system 
unit from the LAN pull down menu. The system applications of 
this submenu perform the following functions: 
« Change the Node assignment of a System Unit: Changes a 
System Unit’s node assignment to a different node. The 


new node must be in the system database. 


¢ Edit a System Unit: Allows the user to edit the system 
ime “ara its assoetated drives” ang accessories” 


¢ Query a System Unit: Displays the system unit pertinent 
information and its associated LAN, software, drives and 
accessories. 


¢ Remove System Unit from Node: Disassociates a system unit 
from a node. 
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3. The Drives Submenu 
The drive submenu is invoked by choosing drive from 
the LAN pull down menu and pressing return. The system 
applications of this submenu perform the following functions: 
¢ Add a Drive: Adds a drive to an existing system unit in 
the database. 


¢ Query/Edit a Drive: Displays a drive’s information for 
editing or for a simple query. 


¢ Delete a Drive: Deletes a drive from a system unit. This 
application deletes the drive record. If it is desired to 
keep a record of the drive as a spare, it must be added to 
the spare database. 

4. The Accessories Submenu 
The accessory submenu is invoked by choosing accessory 
from the LAN pull down menu and pressing return. The system 
applications of this submenu perform the following functions: 
¢ Add an Accessory: Adds an accessory to an existing system 


unit in the database. 


¢ Query/Edit an Accessory: Displays an accessory’s 
information for editing or for a simple query. 


¢ Delete a Accessory: Deletes a drive from a system unit. 
As with the accessory delete application, the record is 
deleted. If record of the accessory is to be saved as a 
spare, it must be re-entered into the database as a spare. 

5. The Application Software Submenu 
The applications software submenu 1s invoked by 
choosing applications software from the LAN pull down menu and 


pressing return. The systems applications of this submenu 


perform the following functions: 
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¢ Add Applications Software: Adds application software to 
a designated node. 


¢ Delete Application Software: Deletes application software 
from a designated node. 
6. The System Software Submenu 
The systems software submenu 1s invoked by choosing 
system software from the LAN pull down menu and pressing 
return. The systems applications of this submenu perform the 
Pomelowing functions: 
¢ Add System Software: Adds system software to a designated 


node. 


« Delete System Software: Deletes system software from a 
designated node. 


e Add System Software to a LAN: Adds a type of system 
software to every node on a given LAN. 


¢ Delete System Software from a LAN: Deletes a type of 
system software from every node on a given LAN. 
7. The Cable Plant Submenu 
The cable plant submenu is invoked by choosing cable 
plant from the LAN pull down menu and pressing return. The 
system applications of this submenu perform the following 
BUMecte Ons : 
¢ Add Cable Plant Equipment: Allows cable plant equipment 


to be added to a designated LAN. 


* Remove Cable Plant Equipment: Allows cable plant 
equipment to be removed from a designated LAN. 


¢ Edit/Query Cable Plant Equipment: Allows cable plant 
equipment to be edited/viewed for a particular LAN. 
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C. THE SPARES MENU 

The spares menu is for adding, editing, deleting and 
queries of equipment and software which is not associated with 
a LAN, or in other words, are spare parts. Unlike the LAN 
menu, the equipment spares are located by using their serial 
numbers. The method for additions, deletions and queries for 
the cable plant are very similar to the LAN menu. The spare 
software is tracked by it’s number of copies. Adding, 
deleting and editing are all one operation. 

The records for spare system units, drives and accessories 
are stored in the same databases which hold the these records 
for the LAN menu. The spare records are differentiated by 
having the word ‘SPARE’ inserted in the node field (in the 
case of a system unit) or the system unit field (in the case 
of drives or accessories). 

The system presently allows only the system unit records 
to be transferred from a LAN to a@ spare parts category or vice 
versa in one operation. The reason behind this has to do with 
a lack of detailed records on the serial numbers of the drives 
and accessories present in the various LANs. As stated 
previously, the serial numbers are required to locate these 
objects while they are spare parts since they are not 
associated with LANs. The LANs would require dismantling to 
access the necessary serial numbers, a time consuming and non- 


viable option. 
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The unfortunate backlash of this situation is that if 
drives and accessories are removed from their respective node 
on a LAN, their record must be deleted and re-inserted as a 
Spare, a two step process. The converse process does not hold 
however. A spare drive or accessory can be added to a system 
unit by editing the system unit field to read the system unit 
number of the desired system unit. This is not recommended 
Since it can create key field data errors. For transferring 
drives and accessories from a node to spare parts or vice 
versa, it is recommended that a two step process be used of 
deleting the record and then re-entering it. 

The following 1S a summary of the system applications 
which are available on the spares menu: 

1. The System Unit Submenu 

The system unit submenu is invoked by choosing system 
unit from the spares pull down menu and pressing enter. The 
system applications of this submenu perform the following 
Ones rons : 

¢ Add a System Unit Spare: Adds a spare system unit to the 
database and allows the user to add drives and accessories 
to the system unit. 

¢ Delete a System Unit Spare: Deletes a system unit spare 
and its associated drives and accessories from the 
database. 


« Edit a System Unit Spare: Allows the user to edit a 
system unit and its associated drives and accessories. 


* Query a System Unit Spare: Allows the user to query a 
system unit and its associated drives and accessories. 
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2. The Drives Submenu 
The drives submenu is invoked by choosing drives from 
the spares pull down menu and pressing enter. The system 


applications of this submenu perform the following functions: 


« Add a Spare Drive: Adds a spare drive to the database. 


« Delete a Spare Drive: Deletes a spare drive from the 
database. 


¢ Query/Edit a Spare Drive: Allows a user to query/edit a 
Spare drive record. 
3. The Accessories Submenu 
The accessories submenu is invoked by choosing 
accessories from the spares pull down menu and pressing enter. 
The system applications of this submenu perform the following 
funebioens: 
e Add a Spare Accessory: Adds a spare accessory to the 


database. 


« Delete a Spare Accessory: Deletes a spare accessory from 
the database. 


¢ Query/Edit a Spare Accessory: Allows the user to 
query/edit a spare accessory record. 
4. The Application Software Function 
Choosing application software invokes a function which 
allows a user to add to or delete from the number of spare 
copies of a certain type of application software. 
5. The System Software Function 
Choosing system software invokes a function which 


allows a user to add to or delete from the number of spare 


copies of a certain type of system software. 
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6. The Cable Plant Function 
Choosing cable plant invokes a function which allows 
a user to add to or delete from the number of spare copies of 


a certain type of system software. 


D. THE REPORTS MENU 
This menu is responsible for the formatted printed and 
screen reports on the LANS and spare parts. Future reports 
may be added with minor changes to the menus. The following 
is a summary of the system reports which are available on the 
reports pull down menu: 
1. The LAN Submenu 
The LAN submenu is invoked by choosing LAN from the 
report pull down menu and pressing enter. This submenu 
creates the following reports: 
e LAN Report: This report lists all of the equipment and 
software for a given LAN. 


¢ Node Report: This report lists pertinent information on 
all of the nodes in a given LAN. 


¢ Server Report: This report list the servers, their 
software and equipment for a given LAN. 


¢ Application Software Report: Lists all of the application 
software available on a given LAN. 


¢ System Software Report: Lists all of the system software 
on a given LAN. 


° Cable Plant Report: Lists all of the cable plant 
equipment associated with a given LAN. 
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2. The LAN Equipment Submenu 


The LAN Equipment submenu is invoked by choosing LAN 


Equipment from the report pull down menu and pressing enter. 


This submenu creates the following reports: 


Node Report: Lists node information and all of the 
software and equipment associated for a given node. 


Drives Report: Lists all of the drives in the database. 


Accessories Report: Lists all of the accessories in the 
database. 


System Unit Report: Lists all of the system units in the 
database. 
3. The Spares Submenu 


The spares submenu is invoked by choosing spares from 


the report pull down menu and pressing enter. This submenu 


creates the following reports: 


Spare System Unit Report: Lists all spare system units. 
Spare Drives Report: Lists all spare drives. 
Spare Accessory Report: Lists all spare accessories. 


Spare System Software Report: Lists all spare copies of 
all system software by type. 


Spare Application Software Report: Lists all spare copies 
of all application software by type. 


Spare Cable Plant Report: Lists all spare cable plant 
equipment by type. 


THE QUIT MENU 


This menu might be more aptly named the utilities menu. 


Besides allowing the user to quit either to the operating 


system or the dBASE control center, it allows the user to pack 
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database files, back up database files and perform SQL 
queries. The following 1S a summary of the system 
applications available on the quit pull down menu: 
1. The Maintenance Submenu 
The maintenance submenu is invoked by choosing 
maintenance from the quit pull down menu and pressing enter. 
The system applications of this submenu perform the following 
PMeeielS : 
¢ Pack Databases: Packs the system database files. Should 
be performed at least monthly. 


¢ Backup Databases: Backs up the system datakase files. 
Should be performed at least weekly. 


2. The SQL Function 
The SQL function 1s invoked by choosing SQL from the 
quit pull down menu and pressing enter. This function places 
the user in the dBASE SQL mode where SQL commands can be 
entered. This screen exits to the dBASE control center by 
pressing the F2 key. 
3. The Quit to DOS Function 
The Quit to DOS function is invoked by choosing quit 
to DOS from the quit pull down menu and pressing enter. This 
function returns the user to the operating system. 
4. The Quit to Control Center Function 
The quit to control center function is invoked by 


choosing quit to control center from the quit pull down menu 
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and pressing enter. This function places the user in the 


GABASE control center. 


F. ADDING AND DELETING KEY FIELD VALUES 

The lan, system software, application software, accessory 
and cable plant fields each have a database file which 
contains all the available choices for these fields. In order 
to add a new type of accessory to the database, add a new LAN 
or possibly delete a type of obsolete software from the 
database, the field must be added to or deleted from the 
pertinent database file. The following database files hold 


the pertinent field information: 


¢ ACC_NAME: Accessory key field names. 

e APP_SW: Application Software key field names. Thais 
database file is also used for storing the number of spare 
software packages. 

e CABL_ PL: Cable Plant equipment key field names. This 
database file is also used for storing the number of spare 
cable plant equipment. 

e LAN: Lan key field names. 

« SYS_SW: System Software key field names. This database 


file is also used for storing the number of spare system 
software packages. 


Unlike most other operations of the database which are 
executed within the system application, these changes must be 
accomplished within the control center. Since adding or 


deleting these values will not occur very often, it was not 
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considered worthwhile to create a system application for this 
RUne@eren. Ime following Steps can be taken to add, edit or 
delete key field values: 
1. Enter the dBASE control center through the quit pull down 
menu. 
2 Bocmeomene Gata tile section of the control center by 
using the cursor keys, choose the data file which is to be 


edited and press enter. 


3. From the pop up menu, choose display data and press 
enter. 

4. The data field will now be displayed. They may be edited 
by scrolling up and down using cursor keys. A new field may 
be added by pressing the F10 key and choosing the add a new 
record function. A field may be deleted by pressing F10 and 
choosing the mark records for deletion function. 


5. The data file can be exited by either pressing escape or 
F10 and choosing the exit bar menu choice. 


6S alashoasiirhorniatdoem cmamuce.or the GBASE control center 
1S available through the tool’s manuals. 


G. RETURNING TO THE APPLICATION FROM THE CONTROL CENTER 
This function may be accomplished through the following 
procedure: 
1. Use the cursor keys to enter the application portion of 
the control center. 
2. Choose the Lanmaint application and press enter. 


3. Choose the Run Program option from and pop up menu and 
enter yes when prompted. 


4. This action will return the user to the LAN Configuration 
and Maintenance database system. 


49 


H. SUMMARY 

The LAN Configuration and Maintenance Database System is 
a powerful and flexible tool for managing the maintenance and 
configuration of almost any LAN configuration. This users 
manual is designed to introduce the system to a new user and 
explain its functions. 

While a knowledge of the dBASE tool 1S not necessary to 
use this application, it will certainly aid in understanding 
the system and its capabilities. More knowledge of the dBASE 
IV language can be gotten from the tool’s manuals. its. 1S 
assumed the users of this system will be LAN system managers 
and will have a nominal knowledge of databases and their 


terminology. 
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APPENDIX B-SYSTEM MENUS 


LAN SPARES REPORTS QUIT 


NODES 

SYSTEM UNITS 
DRIVES 

ACCESSORIES 
APPLICATION SOFTWAK 
SYSTEM SOFTWARE 
CABLE PLANT 


USE THE CURSOR KEYS TO HIGHLIGHT OPTIONS PROM THIS MENU AND PRESS RETURN 





LAN PULL DOWN MENU 


LAN SPARES REPORTS QUI 


SYSTEM UNITS 
DRIVES 
ACCESSORIES 
APPLICATION SW 
SYSTEM SOFTWAR 
CABLE PLANTS 





USE THE CURSOR KEYS TO HIGHLIGHT OPTION FROM THIS MENU AND PRESS RETURN 


SPARES PULL DOWN MENU 


Sk 


LAN _ SPARES REPORTS QUIT 


LANS 
LAN FQUIPMENT 
SPARES 





USE THE CURSOR KEYS TO HIGHLIGHT OPTIONS PROM THIS MENU AND PRESS RETURN 


REPORTS PULL DOWN MENU 


LAN SPARES REPORTS QUI 


MAINTENANCE 
SQL 

QUIT TO DOS 
QUIT TO C.C. 


USE THE CURSOR KEYS TO HIGHLIGHT OPTION FROM THIS MENU AND PRESS EETURN 





QUIT PULL DOWN MENU 


S2 


LAN SPARES REPORTS QUIT 


NODES 


SYSTEM UNITS —~ 
DRIV=S CHANGE NODE SYSTEM UNIT 


ACCESSORIES ADD NEW NODE 
= DELETE NODE 

APPLICATION sw Seema. 

SYSTEM SOFTWAB Q 

CABLE PLANT EDIT NODE 





USE THE CURSOR KEYS TO HIGHLIGHT OPTIONS PROM THIS MENU AND PRESS RETURN 


NODE POP UP SUBMENU 


LAN SPARES REPORTS QUI 


NODES 
SYSTEM UNITS 


DRIVES 
ACCESSORIES ASSIGN SYSTEM UNIT TO NODE 


APPLICATION sw QUERY SYSTEM UNIT 
MODIFY SYSTEM UNIT 


REMOVE SYSTEM UNIT FROM NODE 


USB THE CURSOR KEYS TO HIGHLIGHT OPTION FROM THIS MENU AND PREGS RETURN 





SYSTEM UNIT POP UP SUBMENU 


5S 


LAN SPARES REPORTS QUIT 


NODES 
SYSTEM UNITS 


DRIVES ADD DRIVE TO SYSTEM UNIT 
ACCESSORIES EDIT/QUERY SYSTZM UNIT 


APPLICATION SW] | pr Lere DRIVE FROM SYSTEM UNI 
SYSTEM SOFTWAE 


CABLE PLANT 


USE THE CURSOR KEYS TO HIGHLIGHT OPTIQGNS PROM THIS MENU AND PRESS RETURN 





DRIVE POP UP SUBMENU 


LAN SPARES REPORTS QUI 


NODES 
SYSTEM UNITS 
DRIVES 


ACCESSORIES 
APPLICATION SW ADD AN ACCESSORY 


SYSTEM SOFTWABR DELETE AN ACCESSORY 


CABLE PLANT EDIT/QUERY AN ACCESSORY 





USE THE CURSOR KEYS TO HIGHLIGHT OPTION FROM THIS MENU AND PRESS RETURN 


ACCESSORIES POP UP SUBMENU 
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LAN SPARES REPORTS QUIT 


NODES 

SYSTEM UNITS 
DRIVES 
ACCESSORIES 
APPLICATION SW 


SYSTEM SOFTWARE | ADD APPLICATION SOFTWARE TO A NODE 
CABLE PLANT DELETE APPLICATION SOFTWARE FROM A NODE 


USE THE CURSOR KEYS TO HIGHLIGHT OPTIGNS PROM THIS MENU AND PRESS RETURN 





APPLICATION SOFTWARE POP UP SUBMENU 


LAN SPARES REPORTS QUI 


NODES 

SYSTEM UNITS 
DRIVES 
ACCESSORIES 
APPLICATION =a) 


ADD SYSTEM SOFTWARE TO A NODE 

DELETE SYSTEM SOFTWARE FROM A NODE 
ADD SYSTEM SOFTWARE TO AN ENTIRE LAN 
DELETE SYSTEM SOFTWARE FROM AN ENTIRE 
LAN 





USB THE CURSOR KEYS TO HIGHLIGHT OPTION FROM THIS MENU AND PRESS RETURN 


SYSTEM SOFTWARE POP UP SUBMENU 


SD 


SPARES REPORTS QUIT 


NODES 
SYSTEM UNITS 
DRIVES 
ACCESSORIES 


CABLE PLANT ADD LAN CABLE PLANT EQUEPMENT 


REMOVE LAN CABLE PLANT EQUIPMENT 
QUERY LAN CABLE PLANT EQUIPMENT 


USE THE CURSOR KEYS TO HIGHLIGHT OPTIONS PROM THIS MENU AND PRESS RETURN 





CABLE PLANT POP UP SUBMENU 


LAN SPARES REPORTS QUI 


SYSTEM UNITS 
DRIVES 
ACCESSORIES 
APPLICATION SW 
SYSTEM SOFTWARE 
CABLE PLANT 


ADD A SYSTEM UNIT SPARE 
DELETE A SYSTEM UNIT SPARE 
QUERY A SYSTEM UNIT SPARE 
MODIFY A SYSTEM UNIT SPARE 


USE THE CURSOR KEYS TO HIGHLIGHT OPTION FROM THIS MENU AND PRESS RETURN 





SYSTEM UNIT SPARE POP UP SUBMENU 


5/6 


LAN SPARES REPORTS QUIT 


SYSTEM UNITS 

DRIVES 

ACCESSORIES ADD A SPARE DRIVE 
APPLICATION SW QUERY/EDIT A SPARE DRIVE 
SYSTEM SOFTWARE) | DELETE A SPARE DRIVE 
CABLE PLANT 


USE THE CURSOR KEYS TO HIGHLIGHT OPTIQNS PROM THIS MENU AND PRESS RETURN 





SPARE DRIVE POP UP SUBMENU 


LAN SPARES REPORTS QUI 


SYSTEM UNITS 
DRIVES 
ACCESSORIES 
APPLICATION SW 
SYSTEM SOPTWAR 
CABLE PLANT 


ADD A SPARE ACCESSORY 
QUERY/EDIT A SPARE ACCESSORY 
DELETE A SPARE ACCESSORY 





USE THE CURSOR KEYS TO HIGHLIGHT OVTION FROM THIS MENU AND PRESS RETURN 


SPARE ACCESSORY POP UP SUBMENU 


i) 


LAN SPARES REPORTS QUIT 


NODES - _ 
SYSTEM UNIT CHANGE NODE SYSTEM UNIT 


DRIVES ADD A NEW NODE 
ACCESSORIES ae eae 
APPLICATION SW 

SYSTEM SOFTWARE EDIT NODE 
CABLE PLANT 


ADD NEW SYSTEM UNIT WITH NEW NODE 
USE EXISTING SYSTEM UNIT WITH NEW NODE 


USE THE CURSOR KEYS TO HIGHLIGHT OPTIGNS PROM THIS MENU AND PRESS RETURN 





ADD A NODE POP UP SUB-SUBMENU 


LAN SPARES REPORTS QUI 


LANS 
LAN EQUIPMENT 
SPARES 


LAN REPORT 


NODE REPORT 

SERVER REPORT 
APPLICATION S/W REPORT 
SYSTEM S/W REPORT 
CABLE PLANT REPORT 


USE THE CURSOR KEYS TO HIGHLIGHT OPTION FROM THIS MENU AND PRESS RETURN 





LANS REPORTS POP UP SUBMENU 
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LAN SPARES REPORTS QUIT 


NODE REPORT 
DRIVE REPORT 
ACCESSORIES REPORT 
SYSTEM UNIT REPORT 


USE TKE CORSOR KEYS TO HIGHLIGHT OPTIQNS PROM THIS MENU AND PRESS RETURN 





LAN EQUIPMENT REPORTS POP UP SUBMENU 


LAN SPARES REPORTS QUI 


LANS 
LAN EQUIPMENT 
SPARES 


SPARE SYSTEM UNIT REPORT 
SPARE DRIVE REPORT 

SPARE ACCESSORY REPORT 

SPARE SYSTEM SOFTWARE REPORT 
SPARE APPLICATION S/W REPORT 
SPARE CABLE PLANT REPORT 


USE THE CURSOR KEYS TO HIGHLIGHT OPTION FROM THIS MENU AND PRESS RETURN 





SPARES REPORTS POP UP SUBMENU 


5S, 


LAN SPARES REPORTS QUIT 


MATNTENANCE 


PACK DATABASES 
BACK UP DATABASES 





USE THE CURSOR KEYS TO HIGHLIGHT OPTIONS PROM THIS MENU AND PRESS RETURN 


MAINTENANCE OPTIONS POP UP SUBMENU 
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APPENDIX C-DATA ENTRY SCREENS 


ACCESSORY EDIT/INPUT/QUERY FORM 


SYSTEM UNIT NO: ACCESSORY NAME: 
See nee ACCESSORY TYPE: 


PRESS ENTER TO MOVE TO NEXT FIELD 
I/O INTERRUPT INFO 


(ENTER N/A AS APPROPRIATE) 


ACCESSORY TYPE SHOULD DEFINE 


I/O PORT: ACCESSORY, EX. MODEM, TYPE 1200 


1/O ADDRESS: 


IRQ SETTING: 
DMA SETTING: 





CABLE PLANT EQUIPMENT ADD/QUERY/EDIT/REMOVE SCREEN 


LOCAL AREA NETWORK NAME:[ 


came mast ves: [—d 
amr: [—] 








***WHEN ADDING OR DELETING*** 


***ADJUST THE QUANTITY TO THE DESIRED LEVEL AND PRESS ENTE 
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FLOPPY DRIVE ENTRY/EDIT/QUERY FORM 
SYSTEM UNIT NO: = =] 


DRIVE ILD NO: 


DRIVE LETTER: [reser 


PRESS RETURN TO ENTER DATA AND MOVE TO NEXT FIELD 
TOGGLE SPACEBAR FOR CHOICES WHERE AVATLABLE 
FACK COMMENT LINE REQUIRES A RETURN COMMAND 


HARD DRIVE ADDITION/EDIT FORM 


SYSTEM UNIT NO: nm al DRIVE ID NO: a. 
DRIVE INFO 
panve ees ( 


Nig cata acee DRIVE LETTER: 
HEADS: [| 
CYLINDERS : 
SECTORS : PRESS RETURN TO MOVE TO NEXT FIE 
AP) oon COMMENT FIELD REQUIRES THREE RETUR 
COMMENTS : 


WRITE PRE 
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NODE INFORMATION ENTRY/EDIT FORM 


SYSTEM UNIT NO: 


NODE ID NO : LAN: | | 
Se 


**POR POP UP CHOICES OF LANS** 
**PRESS ENTER WHILE IN LAN FIELD* 


SYSTEM UNIT ADDITION/EDIT FORM 


SYSTEM UNIT NO.: BIOS MAKER: 
KEY COMPATABILITY: BIOS VERSION: 


(SPACEBAR FOR CHOICE) 


SYSTEM UNIT MEMORY CPU INFORMATION 


T : CPU SERIAL NO: 
PHYSICAL MOTHERBOARD: SOTIOGEL Mo: 


PHYSICAL ADD ON :: CPU SPEED ; 


LOGICAL EXPANDED MEM: 
LOGICAL EXTENDED MEM; 
CACHE MEM ;: 
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APPENDIX D-RELATION DEFINITIONS 


RELATION ATTRIBUTE LENGTH Jess sy 


LAN_NAME A/N 
NODE_ID A/N 
LAN_NAME A/N 
SYS_UNITNO A/N 
PURPOSE A/N 
COMMENTS A/N 
SYS _UNITNO i A/N 
CPU_MOD_NO 5 A/N 
CPU_SPEED 2 A/N 
CPU _SER_NO 10 A/N 
PHYS MOTH 5 A/N 
LOG EXP MEM 5 A/N 
LOG EXT MEM 5 A/N 
PHY ADDON 5 A/N 
CACHE MEM 5 A/N 
BIOS MAKER 10 A/N 
BIOS VERS 5 A/N 
KEY _COMPAT 6 A/N 
COMMENTS 3 A/N 
SYS_UNITNO A/N 
ACCESS_ID A/N 
ACCESS_NAM A/N 
ACCESS_TYP A/N 

A/N 

A/N 

A/N 

A/N 

A/N 

A/N 
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RELATION ATTRIBUTE LENGH 


SYS_UNITNO 
DRIVE_ID 
DRIVE LTR 
DRIVE TYPE 
HEADS 
CYLINDERS 
SECTORS 
LAND ZONE 
WR_PRECOM 
SIZE 
COMMENTS 


ACCESSORY ACCESS NAM 
NAME 


APE SW_NAM2 
SOFTWARE DEVELOPER 
QUANTITY 


CABLE PLANT | CABLE_TYPE 
QUANTITY 


LAN_NAME 


CABLE TYPE 
QUANTITY 
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RELATION 


NODE_SYS 


SYS 
SOFTWARE 





ATTRIBUTE LENGHT TYPE 


SW_NAME 
NODE _ID 
LAN _NAME 


SYS _SW_NAM 
NODE_ID 
LAN NAME 


SYS SW NAM 
DEVELOPER 
QUANTITY 
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APPENDIX E-PROGRAM FILES AND DEFINITIONS 


DATABASE FILES 


Accessor.dbf: Database file for the accessory object. 


Acc_Name.dbf: Database file for the accessory name key 
field choices. 


App_SW.dbf: Database file for the application software 
key fields. This database also holds the spare 
application software information. 


Cable_Pl.dbf: Database file for the cable plant key 
fields. This database also holds the spare cable plant 
ine © mma ton. : 

Cabl_ Lan: Intersection relation for the Cable_Pl and LAN 
database files. Holds the data for what LANs have what 
amount of cable plant equipment. 

Drive: Database file for the drive object. 


LAN: Database file for the LAN names (and also the key 
fields). 


Node: Database file for the node object. 

Node_App: Intersection relation for the Node.dbf and 
App_SW database files. Describes what application 
software is assigned to each node. 

Node_Sys: Intersection relation for the Node and Sys_Sw 
database files. Describes what system software is 
assigned to each node. 


Sys_SW: Database file for the system software key field 
names. Also holds the spare system software information. 


Sys_Unit: Database file for the system unit object. 
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MENU FILES 


Main: The main bar menu for the application. 


Accessor: Pop up menu which 1s attached to the LAN pull 
down menu. Allows the user to edit, delete and add 
accessories to system units in the database. 


Appsoft: Pop up menu which 1s attached to the LAN pull 
down menu. Allows the user to add or delete application 
software from a node. 


Cable _Pl: Pop up menu which is attached to the LAN pull 
down menu. Allows the user to add, delete or query cable 
plant equipment associated with a LAN. 


Drives: Pop up menu which is attached to the LAN pull 
down menu. Allows the user to add, edit/query or delete 
a drive from a system unit. 


Drive_Sp: Pop up menu which is attached to the Spares 
pull down menu. Allows the user to add, edit/query or 
delete a spare drive. 


Equ_Rep: Pop up menu which is attached to the Report pull 
down menu. Allows the user to choose from a variety of 
reports on LAN equipment. 


LAN: One of the pull down menus attached to the main bar 
menu. Concerned with LAN equipment configuration 
functions. 


Lan_Rep: Pop up menu which is attached to the Report pull 
down menu. Allows the user to choose from a variety of 
reports on Lan Contwretitarren- 


Maint: Pop up menu which is attached to the Quit pull 
down menu. Allows the user to perform backups and packs 
on the database files. 


Nodes: Pop up menu which is attached to the LAN pull down 
menu. Allows the user to add, delete, query nodes and 
change the system unit assigned to a node. 


NuNode: Pop up menu which is attached to the Node pop up 
menu. Allows the user to add a new node and either assign 
to it a new system unit or add a system unit already 
present in the database. 
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Quit: One of the pull down menus attached to the main bar 
menu. Concerned with database maintenance and exiting 
procedures from the application. 


Reports: One of the pull down menus attached to the main 
bar menu. Concerned with formatted reports of the 
database. 


Spares: One of the pull down menus attached to the main 
bar menu. Concerned with addition, deletion and 
query/edit of the LAN spares. 


Spare_Rep: Pop up menu which is attached to the Spare 
pull down menu. Allows the user to generate various 
reports on the system’s spare parts. 

Sys_Soft: Pop up menu which is attached to the LAN pull 
down menu. Allows the user to add or delete system 
software for either a node or a whole LAN. 

Sys_Uni: Pop up menu which is attached to the LAN pull 
down menu. Allows the user to query, edit, remove a 
system unit from a node and add a system unit to a node. 


Unit_Spa: Pop up menu which is attached to the Spares 
pull down menu. Allows the user to add, delete, edit and 
query spare system units. 


DATA ENTRY FORMAT FILES 


Accssy: Data entry/edit/query form for the accessory 
object. 


App_Spar: Data entry/edit/query form for the application 
software spare copies. 


Cable: Data entry/edit/query form for the cable plant 
equipment associated with a LAN. 


Cab_Spar: Data entry/edit/query form for the cable plant 
spare parts. 


Floppy: Data entry/edit/query form for floppy disk 
drives. 


HrdDrive: Data entry/edit/query form for hard drives. 


Node_Pic: Data entry/edit/query form for the node object. 


69 


Sys_spar: Data entry/edit/query form for spare system 
software. 


Sys_Unit: Data entry/edit/query form for system unit 
object. 


REPORT FORMAT FILES 


Ac_e rep: Creates report on all accessories in the 
database. 
Ac_S_Rep: Creates report on spare system units in the 
database. 
Ap_L_ Rep: Creates a report on the application software 


available ina given LAN. 


Ap_S_Rep: Creates a report on the spare application 
software in the database. 


Cab_S_Rep: Creates a report on the spare cable plant 
equipment in the database. 


CB L Rep: Creates a report on the cable plant equipment 
assigned to a given LAN. 


Dr_E_ Rep: Creates a report on all the drives in the 
entire LAN. 


Dr_S_Rep: Creates a report on spare drives in the 
database. 


LanRep: Creates a report on the equipment and software 
available in a given Lan. 


Nod_E Re: Creates a report on all the nodes in the 
database. 


Nod_L_ Re: Creates a report on all the nodes in a given 
LAN. 


Serv_Rep: Creates a report on the server(s) in a given 
LAN. 


Sy_S_Rep: Creates a report on the spare system software 
in the database. 


Sy_L_ Rep: Creates a report on the System software used in 
a given LAN. 
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Un_e_Rep: 


Creates a report on all of the system units in 


the database. 


Un_S_ Re: 


Creates a report on spare system units. 


SYSTEM APPLICATION FILES 


Acc_Ed: 
Acc_Ent: 


Acc_Del: 


Acc_s_Ed: 
Ac_S_ Del: 


Ac_S_Ent: 


AddApp: 


Add_Node: 


Add_Sys: 
App_Del: 
App_Ent: 


App_Spa: 


Cabl_Add: 


Cabl_ Del: 


Cabl_Sp: 


Driv_Del: 
Driv_Ent: 
Drv_Quer: 
Dr_S_Del: 
Dr_S_ Ent: 


Dr_S_ Que: 


Edit/Query an accessory. 

Add an accessory to a system unit. 

Delete an accessory from a system unit. 

Edit/query an accessory spare. 

Delete a spare accessory. 

Add a spare accessory. 
Add application software to a node. 

Adds a node to a LAN. 

Adds system software to a node. 

Deletes application software from a node. 
Adds application software to a node. 
Add/edit/delete spare application software. 

Adds cable plant equipment to a LAN. 

Deletes cable plant equipment from a LAN. 
Add/edit/deletes spare cable plant equipment. 

Deletes a drive from a system unit. 

Adds a drive to a system unit. 

Queries/edits a drive on a system unit. 
Deletes a spare drive from the system. 
the system. 


Adds a spare drive to 


Queries/edits a spare drive. 


aia 


Get_Unit: A program used by other application programs to 
locate a system unit by either its node or its system unit 
number. 


Lanmaint : The main application program for the LAN 
maintenance and configuration database. 


Nodent_1: Adds a new node and an associated system unit to 
a LAN. 


Nodent_2: Adds a new node to a LAN, but uses a system unit 
already present in the database. 


Node_Ch: Changes the system unit assigned to a node. 
Node_Del: Deletes a node from the database. 

Node_Ed: Edits a node. 

Node_Que: Queries a node. 


N Choice: Program used by other programs to choose a node 
from a series of pop up menus. 


Spare_Qu: Queries a spare system unit. 
Sys_Del: Deletes system software from a node. 


Sys_Ent: Enters system software onto a node. 


Sys_Spa: Allows edit/delete/adding of spare system 
software to the system. 

Unit_2: Used to add spare system units inside other 
programs. 


Unit_Add: Assigns a system unit to a node. 
Unit_Ed: Allows the editing of system units. 
Unit_Ent: Adds spare system units to the system. 
Unit_Qu: Queries a system unit. 

Unit Rem: Removes a system unit from a node. 
Un_Sp_D1l: Deletes a spare system unit. 


Un_Sp_Ed: allows editing of a spare system unit. 
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APPENDIX F- APPLICATION PROGRAM FILES 


1. <Acc_Ed 


KKKKKKEKEKEKKE KKK KKK KKK KKK KKK KK KKK KKK KEK KKK KKK KKK KK KKK KKK KK KEK KK 


kxekeKkekweKeKeKe KK KKK K 


7 escogram Name : ACC_ED.prg 

4 SR CHOL oD oaG be k1Son 

* Date = 29 July 1992 

ewe Version : Dbase IV Ver 1.1 

* Last Updated : 07 August 1992 

* 

~ sehuGe] svelte: Weetchia OVErY wane Accessory record 
pre ed mams 

* Called : Get_Unit 


Ke KKK KEKE KKK KKK KKK KKK KKK KKK KKK KE KKK K KKK KKK KK KKK KK KKK KKK KKK KKK 


Kak KeKeK Ke KKK KKK 


CLEAR 
DO Get_unit 
oa eMivey co Uno num)  =etNONE ASSIGNED” 
CLOSE DATABASES 
CLEAR 
RETURN 
ENDIF 
CLOSE DATABASES 
USE Accessor ORDER Sys_unitno 
Soot TO sys unrtno = Sys_un_num 
SBEK SyYs_un_num 
te NOT. FOUND({ } 
CLEAR 
@10, 5 SAY “THERE ARE NO ACCESSORIES ASSOCIATED WITH 
Sole UNE “+TRIM(Sys_un_num) 
@12, 17 SAY "PRESS ANY KEY TO RETURN TO PREVIOUS MENU" 
WAT tl iT) 
CLOSE DATABASES 
RETURN 
END LE 
CLEAR 
@ 8, 5 SAY "CHOSE THE ACCESSORY TO QUERY/EDIT FROM SYSTEM UNIT 
"+TRIM(Sys_un_num) 
@9, 19 SAY "WITH CURSOR KEYS AND PRESS ENTER" 
DEFINE POPUP Get_ACC FROM 10, 20 PROMPT FIELD Access_Nam 
ON SELECTION POPUP Get_ACC DEACTIVATE POPUP 
ACTIVATE POPUP Get_ACC 
USE Accessor ORDER Access_Nam 
Sot ebtiveRe TO Sys unitno = Sys _un num 


q3 


SEEK PROMPT () 

SET FORMAT TO Accssy 
READ 

CLOSE] FORMAT 

CLOSE DATABASES 
CLEAR 

RETURN 


2. <Acc_ent 


KKEKKEKKEKKEKKKEKKEKEK KKK KKK KKK KKK KK KKK KKK KKK KKK KEKKEKEKEKKKKEKK KK KKK K 
KKK KKKKKKEKKKEK KEE 
lela ACCESSORY ENTRY PROGRAM 
* *k 
KKKKKEKKEKEKEKKEKKEKKEEEKEKEKEEKKEEKKEKKEK KEK KKK KEKKEKKEKKEKEKEKEKEKEKEKKEKKKEKKK KEK 


KaeKKKKKKKKK KEK 


*Program Name: ACC_ENT.prg 


we sabhe laione > DeeGe Dickaceon 
*Date :* 16 July 1992 
*Version —ePibase Wa) Veraed 


*Last Updated: 09 August 1992 


*Purpose : This program adds accessories such as memory 
cards, 
ig monitors, modems etc to a system unit by either 
node 
* ID or system unit no. 
* Programs called: Get_Unit 


KKEKKKKKEKKE KK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKKEKKKEEKKEKKEKKEKKEKKEKEK 


KKKKKKKKKKKK 


CLEAR 
DO Get_Unit 
CLOSE DATABASES 
IF TRIM(Sys_un_num) = "NONE ASSIGNED" 
CLOSE DATABASES 
CLEAR 
RETURN 
ENDIF 
YN = iT Y il 
DO WHIGE UPPER(YN) = “y" 
CLEAR 
USE Acc_Name ORDER Access_Nam 
@&8, 5 SAY "USE CURSOR KEYS 70. CHOOSE DEST RED 4Ger olen 
@9, 12 SAY " AND PRESS RETURN" 
DEFINE POPUP Acc_Nam FROM 10, 20 PROMPT FIELD Access_Nam 
ON SELECTION POPUP Acc_Nam DEACTIVATE POPUP 
ACTIVATE POPUP Acc_Nam 
Nu_Acc = PROMPT() 
CLOSE DATABASE 
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USE Accessor 
CLEAR 
SET FORMAT TO Accssy 
APPEND BLANK 
REPLACE Access_nam WITH Nu_Acc 
REPLACE Sys_unitno WITH UPPER(Sys_un_num) 
READ 
CLOSE FORMAT 
CLOSE DATABASE 
CLEAR 
AGCEPT “ENTER ‘Y° TO ADD ANOTHER ACCESSORY, ANY O@HER KEY 
Rome xs TO YN 
ENDDO 
CLOSE DATABASES 
CLEAR 
RETURN 


3. Acc_del 
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—eeemegram Name : ACC_DEL.prg 

2 > Awe hor oa eeeGe beck luson 

* Date Pee oasuly 1992 

ers 10n : Dbase IV Ver 1.1 

* Last Updated : 07 August 1992 

* 

* Purpose : To query accessories of a system unit 
~ Programs 

fo Cal led : Get_Unit 


KEK KKEKEKKE KEKE KE KEKE KEKE KEKE KEKE KKK KKK KEKE KEK KEKE KEKE KKK KEKEKEKKEKEKKKEKKKEK 
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CLEAR 
DO Get_Unit 
CLOSE DATABASES 
IF TRIM(Sys_un_num) = "NONE ASSIGNED" 
CLOSE DATABASES 
CLEAR 
RETURN 
BND 
wWesN@. =. y " 
DO WHILE UPPER(YesNO) = “"Y" 
Use Accessor ORDER Sys_unitno 
Sen FILTER TO Sys_unitno = Sys_un_num 
SEBK SysS_un_num 
ihe em POUND { ) 
CLEAR 


V2 


@ 10, 5 SAY "THERE ARE NO ACCESSORIES Asseers tape iin 


SYSTEM UNIT “+TRIM(Syouune num) 
@i2, 17 SAY "PRESS ANY KEY TO RETURN TO PREVIOUS MENU" 


WALT tH it 
CLOSE DATABASES 
CLEAR 
RETURN 
ENDIF 
CLEAR 
CLOSE DATABASES 
USE Accessor ORDER Access_Nam 
SET FILTER TO Sys_unitno = SyS_un_num 
@ 8, 5 SAY “CHOOSE THE ACCESSORY TO DELETE FROM SYSTEMS T 
"+TRIM(SysS_un_num) 
@9, 17 SAY “WITH CURSOR KEYS AND PRESS ENTER" 
DEFINE POPUP Get_Acc FROM 10, 20 PROMPT FIELD Access_Nam 
ON SELECTION POPUP Get_Acc DEACTIVATE POPUP 
ACTIVATE POPUP Get_Acc 
CLEAR 
ACCEPT "ARE YOU SURE?? S2RBER ’Y” TO -CONDMINUE ORSANY JODRes 
KEY TO ABORT” TO WN 
LE SUPPER (YN) ae: 
SEEK PROMPT () 
DELETE 
CLEAR 
@ 10, 5 SAY TRIM( PROMPT () )+%eeHAS BEEN REMOVED Sane 
SYSTEM UNIT “+TRIM(Sys_un_num) 
@ 12, 16 SAY "PRESS ANWAKE yale seenrTINvUE”® 
WAIT " “ 


ELSE 
CLEAR 
@i0, 5 SAY "PROCEDURE ABORTED, ,, RETURNING TO MAIN MENU" 
@i12, 17 SAY "PRESS ANY KEY" 
78 
CLOSE DATABASES 
CLEAR 
Re cURN 
BND 
YesNo = SPACE(1) 
CLEAR 
@ 10, 5 SAY "ENTER ‘Y’ TO DELETE MORE ACCESSORIES FROM 
SYSTEM UNIT"+TRIM(Sys_un_num) 
@i12, 12 SAY "OR ANY OTHER KEY TO BXGTE TO PRavIoUCeviatl 
GET YesNo PICTURE “X" 
READ 
DO CASE 
CASE UPPER(YeSNo) = "Y" 
CLEAR 
OTHERWISE 
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CLEAR 
Cert > Soy NO FeateerR ACCESSORIES TO BE DELETED 
FROM "+TRIM(Sys_Un_num) 
Gee eo ony See Reoo any KEY TO EXIT TO PREVIOUS MENU" 
Wren ee 
ENDCASE 
ENDDO 
CLOSE DATABASES 
CLEAR 
RETURN 


4. Acc_S_Ed 


KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KEK KKK KKK KKKK KKK KKK KK KK KKK KK 


keke KeKkeKkeKeK Ke KKK KKK 


* Program Name : ACC_S_ED.prg 

ee Nic ialena oer CK2ESON 

* Date : 4 SEP 1992 

* Version : Dbase IV Ver 1.1 

* Last Updated 

* 

[eeu GpOSe Pero OUem sate eccescemy Spare record 
; Eaograms 

eed Led 
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USE Acc_Name ORDER Access_Nam 
CLEAR 
Geewee> O46, CHOSE THE SPARE ACCESSORY CATEGORY TO QUERY/EDIT" 
@9, 11 SAY "WITH CURSOR KEYS AND PRESS ENTER" 
DEFINE POPUP Get_ACC FROM 10, 20 PROMPT FIELD Access_Nam 
ON SELECTION POPUP Get_ACC DEACTIVATE POPUP 
ACTIVATE POPUP Get_ACC 
Bee Cat = PROMPT {) 
USE Accessor ORDER Access_Nam 
SET FILTER TO Sys_unitno = "SPARE" .AND. Access_Nam = Acc_Cat 
Saen ACC Cat 
teeeNOT., FOUND) 
CLEAR 
@ 10, 5 SAY "THERE ARE NO SPARE "+TRIM(Acc_Cat)+" IN THE 
SPARE DATABASE" 
@i12, 9 SAY "PRESS ANY KEY TO RETURN TO PREVIOUS MENU" 
WAIL Sh iT iT 
CLEAR 
CLOSE DATABASES 
RETURN 
ENDIF 
USE Accessor ORDER Access_ID 


S| 


SET FILTER TO Sys_unitno = "SPARE" .AND. Access_Nam = Acc_Cat 
CLEAR 

@ 8, 5 SAY "USE @URSOR KEYS TO@"ENTER™ THE Phew. 
"+TRIM(Acc_Cat) 

@9, 15 SAY "AND PRESS RETURN" 

DEFINE POPUP Get_Spare FROM 10, 20 PROMPT FIELD Access_ID 
ON SELECTION POPUP Get_Spare DEACTIVATE POPUP 

ACTIVATE POPUP Get_Spare 

SEEK PROMPT () 

SET FORMAT TO Accssy 

READ 

CLOSE FORMAT 

CLOSE DATABASES 

CLEAR 

RETURN 


5. Acc_S_Del 
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« Program Namem@ee 2C S PEL, prg 

* Alita a @ 14 ‘De CG... Drekisen 

* Date >: 4 SEP 1992 

* Version : Dbase IV Ver 1.1 

* Last Updated 

* 

f Sue SORE > bee ucmm an, Lecessom ace as 
~  Esoguans 

* Called 
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USE Acc_Name ORDER Access_Nam 
CLEAR 
@8&, 5 SAY "CHOSE THE SPARE ACCESSORY CAPTEGORY Se) DELLE WE. 
@9, 11 SAY "WITH CURSOR KEYS AND PRESS ENTER" 
DEFINE POPUP Get_ACC FROM 10, 20 PROMPT FIELD Access_Nam 
ON SELECTION POPUP Get_ACC DEACTIVATE POPUP 
ACTIVATE POPUP Get_ACC 
Acc_Cat = PROMPT () 
USE Accessor ORDER Access_Nam 
SET FILTER TO Sys_unitno = "SPARE" .AND. Access_Nam = Acc_Cat 
SEEK Acc_Cat 
IF .NOT, FOUNES 
CLEAR 
@i10, 5 SAY "THERE ARE NO SPARE "+TRIM(Acc_Cat)+" IN THE 
SPARE DATABASE" 
@i12, 9 SAY "PRESS ANY KEY TO RETURN TO PREVIOUS MENU" 
WAT il ul 
CLEAR 
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CLOSE DATABASES 


RETURN 
ENDIF 
USE Accessor ORDER Access_ID 
SET FILTER TO Sys_unitno = "SPARE" .AND. Access_Nam = Acc_Cat 
Char 


@ 8, = SAY US CURSOR KEYS To ENTER THE DESIRED 
"+TRIM(Acc_Cat) 
@9, 15 SAY "AND PRESS RETURN" 
DEFINE POPUP Get_Spare FROM 10, 20 PROMPT FIELD Access_ID 
ON SELECTION POPUP Get_Spare DEACTIVATE POPUP 
ACTIVATE POPUP Get_Spare 
SEEK PROMPT () 
CLEAR 
PCGErl SHARE YOU SURE? ? ENTER “Y’ TO CONTINUE OR ANY OTHER KEY 
LOeasoOn Tl’ IO “YN 
ie UPPER{YN) = "YY" 
PT paw a 
CLEAR 
@i0d0, 5 SAY “ACCESSORY "+TRIM(PROMPT())+" HAS BEEN DELETED 
FROM THE SPARES" 
@i2, 15 SAY "PRESS ANY KEY TO RETURN TO PREVIOUS MENU" 
Wee I T iT i 
IC Speb 
CLEAR 
@ 10, 5 SAY “PROCEDURE ABORTED,,,RETURNING TO PREVIOUS 
MENU" 
Ge Zeeman = PRESS ANY KEY TO CONTINUE" 
WAL 1 it | 
ENDIF 
CLEAR 
CLOSE DATABASES 
RETURN 


6. Ac_S Ent 
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ial ACCESSORY ENTRY PROGRAM 

xk* 
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oweguamn Name: AC S_ENT.prg 


Site Ne IC eG SNe kson 
*Date : 7 SEPT 1992 
*Version : Dbase IV Ver 1.1 


*Last Updated: 
* 


WS, 


*Purpose : This program adds spare accessories such as 


memory cards, 
* monitors, modems etc to the database. 
* 


* Programs called: 
Kwek KkeKeKeKerKeKeKe KKK KR KKK KKK KKRKRK KK KKK KKKKR KKK KKK KKK KKK KKK KKK KKK KKK KKK 
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CLEAR 
YN _ iT} Y u 
DO WHILE UPPER(YN) = "yY" 
CLEAR 
USE Acc_Name ORDER Access_Nam 
@&8, 5 SAY "USE CURSOR KEYS TO CHOOSE DESIRED AGGEcSenR 
@9, 12 SAY " AND PRESS RETURN" 
DEFINE POPUP Acc_Nam FROM 10, 20 PROMPT FIELD Access_Nam 
ON SELECTION POPUP Acc_Nam DEACTIVATE POPUP 
ACTIVATE POPUP Acc_Nam 
Nu_Acc = PROMPT() 
CLOSE #BATABACE 
USE Accessor 
CLEAR 
SET FORMAT TO Accssy 
APPEND BLANK 
REPLACE Access_nam WITH Nu_Acc 
REPLACE Sys_unitno WITH "SPARE" 
READ 
CLOSE FORMAT 
CLOSE DATABASE 
CLEAR 
ACCEPT "ENTER ‘Y’ TO ADD ANOTHER ACCESSORY, ANY O2eRSE saa 
TOE ht TOs Nn 
ENDDO 
CLOSE DATABASES 
CLEAR 
RETURN 


7. Add_app 
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* Program Name: AddApp.prg 


* 


Site a one - Dp. Gl Dlekreem 


* 


* Date : 17 June 1992 
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* Version >; Dbase IV Ver 1.1 


* 


[eeaoe Updatce : 21 July 1992 
* 
* 
* 
* Purpose ; Adds a type of Application software to a 
Node. rs 
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CLEAR 

CLOSE DATABASES 

USE App_Sw ORDER Sw_Name 

ee oe Se, CURS@ORehay> TO MAKE CHOICE OF OF "SOFTWARE" 
@9, 5 SAY "AND PRESS ENTER TO ADD IT TO NODE "+UPPER (NuNode) 
DEFINE POPUP GetApp FROM 10,20 PROMPT FIELD Sw_Name ; 
MESSAGE "PRESS Esc OR "+CHR(27)+" TO RETURN TO MENU" 
ON SELECTION POPUP GetApp DEACTIVATE POPUP 

ACTIVATE POPUP GetApp 

NuName = PROMPT () 

CLEAR 

CLOSE DATABASES 

USE Node_App 

APPEND BLANK 

REPLACE Node_ID WITH UPPER (NuNode) 

REPLACE Sw_Name WITH NuName 

REPLACE Lan_Name WITH NuLan 

pee rin (13) 

CLOSE DATABASES 

CLEAR 

@i10, 5 SAY TRIM(NuName)+" ADDED TO NODE "+NuNode 
Cee Ser PRESS ANY KEY TO CONTINUE" 

WAL ote iT] ‘T 

CLEAR 

RETURN 


8. Add_Node 
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Program Name: Add_Node.prg 
Author : D. G. Dickison 
Date me 2iewguly L392 
Version : Dbase IV Ver 1.1 


Last Updated: 21 July 1992 


+ + + + + OF OF 


Purpose : Add a Node to the LAN Maintenance Database 
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* 
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CLEAR 

PUBLIC NuLan 

USE Node 

SET FORMAT TO Node_Pic 

APPEND BLANK 

REPLACE Node_ID WITH UPPER (NuNode) 
REPLACE Sys_Unitno WITH UPPER(Sys_un_num) 
READ 

NuLan = Lan_Name 

CLOSE FORMAT 

CLOSE DATABASE 

CLEAR 

RETURN 


9. Add_Sys 
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* PYegGrama~Name: = Abe. SyYo nore 

* Author : DG. Premrconm 

* Date ST ae 

* ‘Version Dbase IV Ver 1.1 

* Last ee 2 Ove 

* Purpose : Add a type of System Software to a Node 
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CLEAR 

CLOSE DATABASES 

USE Sys_Sw ORDER Sys_Sw_Nam 

DEFINE POPUP GetSys FROM 10,20 PROMPT FIELD Sys_Sw_Nam ; 
MESSAGE "PRESS Esc OR "+CHR(27)+" TO RETURN TO MENU" 

ON SELECTION POPUP GetSys DEACTIVATE POPUP 

@ 8, 8 SAY "USE CURSOR KEY TO HIGHLIGHT SOFTWARE CHOICE" 
@9, 5 SAY "AND PRESS ENTER TO ADD SOFTWARE TO THE GIVEN NODE" 
ACTIVATE POPUP GetSys 

NuName = PROMPT () 

CLEAR 

CLOSE DATABASES 

USE Node_Sys 

APPEND BLANK 

REPLACE Node_ID WITH UPPER (NuNode) 

REPLACE Sys_Sw_Nam WITH NuName 

REPLACE Lan_Name WITH NuLan 
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? (GRR) 

CLOSE DATABASES 

CLEAR 

@i10, 5 SAY TRIM(NuName)+" ADDED TO NODE "+NuNode 
WALT 

CLEAR 

RETURN 


an0. App_Del 
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* Program Name : APP_DEL.prg 

> ANEner >: D. G. Dickison 

* Date oO ee lal 9 2 

* Last Updated : 27 July 1992 

- Pinscose : Delete an application program from a node 
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CLEAR 
eee ~~ *CAT I, THE N_ CHOICE PROGRAM WHICH CHOOSES A NODE 
DO N_Choice 
CLEAR 
CLOSE DATABASES 
Yesnio. = "Y" 
NuNode = PROMPT () 
DO WHILE UPPER(YeSNo) = "yY" 
USE Node_APP ORDER Node_ID 
SET FILTER TO Node_ID = Nunode 
pee eee = CHECK POR AN EMPTY SET . CONDITION (NO 
SOFTWARE ) 
SEEK NuNode 
IF .NOT. FOUND () 
CLEAR 
@ 10, 5 SAY "NO APPLICATION SOFTWARE IS PRESENTLY 
ASSIGNED TO NODE "+TRIM(NuNode) 
@ 12, 13 SAY "PRESS ANY KEY TO RETURN TO THE PREVIOUS 
MENU" 
WAT a it i 
RETURN 
ENDIF 
CLEAR 
USE Node_App ORDER SW_Name 
SET FILTER TO Node_ID = NuNode 
@ 8, 5 SAY "USE CURSOR KEYS TO CHOOSE AND SOFTWARE TO BE 
DELETED FROM "+TRIM(NuNode) 
@ 9, 11 SAY "AND PRESS ENTER TO DELETE SOFTWARE" 
DEFINE POPUP Get_App FROM 10, 20 PROMPT FIELD SW_Name 
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ON SELECTION POPUP Get_App DEACTIVATE POPUP 
ACTIVATE POPUP Get_App 
KKEKKKEKEKKEKK KKK KKEKK SET UP LAS CHANCE 
CLEAR 
ACCEPT "ARE YOU SURE?? ENTER ‘Y’ TO CONTINUE OR ANY OTHER 
KEY TO@2EBORT" JTOs yh 
LP OPPER (YN) =e 
SEEK PROMPT () 
De Jyed, Beh 
CLEAR 
@ 10, 5 SAY TRIM(PROMPT())+" HAS BEEN REMOVED FROM 
"+TRIM (NuNode) +" NODE" 
@12, 15 SAY "PRESS ANY KEY TO CONTINUE" 


Wee yy i a 
ELSE 
CLEAR 
@ 10, 5 SAY "PROCEDURE ABORTED,,, RETURNING TO MAIN 
MENU " 
@i12, 5 SAY "PRESS ANY KEY TO RETURN TO MAIN MENU" 
Wat a u 
RETURN 
ENDIF 
YesNo = SPACE(1) 
CLEAR 


@i10, 5 SAY "ENTER ‘Y’ TO DELETE MORE APPLICATION SOFTWARE 
FROM "+TRIM(NuNode) 
@i12, 12 SAY "OR ANY OTHER KEY TO EXIT TO PREVIOUS MENCGS 
GET YesNo PICTURE "X" 
READ 
DO CASE 
CASE UPPER(YesNO) = "yY" 
CLEAR 
OTHERWISE 
CLEAR 
@ 10 ,5 SAY "NO FURTHER SOFTWARE CHOSEN TO BE 
DELETED 
@i2, 5 SAY "PRESS ANY KEY TO EXIT TO PREVIOUS MENU" 
Wo) 0 iT} 
ENDCASE 
ENDDO 
CLOSE DATABASES 
CLEAR 
RETURN 


a a App_Ent 
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Memo uweameName : APP_ENT.prg 

+ Autor MeOreGee 11 eka SON 

* Date : Version 

* Last Updated : 21 July 1992 

* 

[aw EDOSe ;: Adds Application software to a Node. 
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CLEAR 
CLOSE DATABASES 
oo Chen ~ POrUr Tor CHOOSE THE LAN WHICH THE NODE 15S IN 
USE Lan ORDER Lan_Name 
Cero ee ey ee oe CURSOR hE yYs TO CHOOSE LAN WHICH THE NODE IS 
IS 
@9, 18 SAY "AND PRESS ENTER FOR NODE CHOICES" 
DEFINE POPUP GetLan FROM 10,20 PROMPT FIELD Lan_Name ; 
MESSAGE "PRESS Esc OR "+CHR(27)+" TO RETURN TO MENU" 
ON SELECTION POPUP GetLan DEACTIVATE POPUP 
ACTIVATE POPUP GetLan 
NuLan = PROMPT () 
CLEAR 
2 orn A POPUP TO CHOOSE THE NODE THE SOFTWARE IS TO 
BE ADDED TO 
CLOSE DATABASES 
USE Node ORDER Lan_Name 
SET FILTER TO Lan_Name = PROMPT() 
SEEK PROMPT () 
ieee NOT. FOUND () 
CLEAR 
@10, 5 SAY " NO NODES ARE PRESENTLY ASSIGNED TO THE 
"4TRIM (PROMPT())+" LAN" 
Ceeizeee hooky 9 PREGS ANY KEY TO RETURN TO THE PREVIOUS 
MENU " 
WAIT " " 
RETURN 
ENDIF 
@ 8, 5 SAY "USE CURSOR KEYS TO CHOOSE THE NODE WHICH THE 
SOFTWARE " 
@ 9, 5 SAY "IS TO BE ADDED AND PRESS ENTER FOR SOFTWARE 
GHOTEGES * 
DEFINE POPUP Get_Nod FROM 10, 20 PROMPT FIELD Node_ID ; 
MESSAGE "PRESS Esc OR "+CHR(27)+" TO RETURN TO MENU" 
ON SELECTION POPUP Get_Nod DEACTIVATE POPUP 
ACTIVATE POPUP Get_Nod 
NuNode = PROMPT() 
CLEAR 
CLOSE DATABASES 
YesNo = "y" 
DO WHILE UPPER(YesNo) = "Y" 
DO Add_App 
YesNo = SPACE(1) 
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CLEAR 

@10, 5 SAY “ENTER ‘Y’ TO ADD APPLECATION SOF TWALa wae 
CHOSEN NODE" 

@iz, 19 SAY "OR “NSO EXIT tO Ve luue 

GET YesNow PICTURE. = 


READ 
DO GASE 
CASE UPPER(YesNo) = "N" 
CLEAR 
@ 10, 5 SAY "“" NO FURTHER SOFTWARE CHOSEN TO BE 
ENTERED 
@i12, 5 SAY " PRESS ANY KEY TO RETURN TO PREVIOUS 
MENU " 
WATT i i 
CASE UPPER(YesSNo) = "Y" 
CLEAR 
OTHERWISE 
CLEAR 
@i0, 5 SAY “INVALID ENTRY,,, RETURNING 2° MAT MENS 
WAIT 
ENDCASE 
ENDDO 
CLEAR 
RETURN 
Da App_Spa 
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* Program Name: APP_SPA.prg 

x AULhOr \ DD. -G. Dickusen 

* Date : 2 Sept 1992 

* Version : Dbase IV Ver 1.1 

* Last Update 

* Purpose : Allows user to add/subtract/edit the number 


of application 
* 


software spares. 
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CLEAR 

USE App_SW ORDER SW_Name 

@ 8, 5 SAY “USE CURSORS TO CHOOSE DESIRED ArPEleAigte 
SOFTWARE" 

@9o, 17 SAY “AND PRESS ENTER PORVGHOrCE. 

DEFINE POPUP Get_App FROM 10, 20 PROMPT FIELD Sw_Name 

ON SELECTION POPUP Get_App DEACTIVATE POPUP 

ACTIVATE POPUP Get_App 
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SEEK PROMPT () 

SET BPORMAT TO App _Spar 
READ 

CLOSE FORMAT 

CLOSE DATABASE 

CLEAR 

RETURN 


S37 Cabl_Add 
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Se uegram Names) CABL, ADD.prg 

7 AuEhor =p. G. Daekison 

* Date >: 10 August 1992 

* Version : Dbase IV Ver 1.1 

* Last Updated: 

* 

of MMB stbhg oo Se : Add Cable Plant Equipment to a Local Area 
Network 


* 
KEK KKEKKEKEKKEKKKEKEKE KKK KEK KEKE KEKKEKEEKHE KEKE KKEKKEKKEKKEKKEKKEKKEKKEKKKK KEK 
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CIBAR 
ao ee eMOOst THe LAN TO ADD CABLE PLANT DATA TO 
USE Lan ORDER Lan_Name 
Gece oe) USE WCURGOR KEYS TO CHOOSE THE DESIRED LAN AND 
PRESS ENTER" 
DEFINE POPUP Get_Lan FROM 10, 20 PROMPT FIELD Lan_Name 
ON SELECTION POPUP Get_Lan DEACTIVATE POPUP 
ACTIVATE POPUP Get_Lan 
CLEAR 
Nu_Lan = PROMPT () 
CLOSE DATABASE 
VesNo = ay" 
DO WHILE UPPER(YesNo) = "Y" 
CLEAR 
ee OOsr THE CABLE. PLANT EOQULPMENT TO ADD 
USE Cable_Pl ORDER Cable_Type 
Caco > oc -eee Use CURSORS TO CHOOSE DESIRED CABLE PLANT 
EQUIPMENT" 
@9, 18 SAY " AND PRESS ENTER" 
DEFINE POPUP Get_Cab FROM 10, 20 PROMPT FIELD Cable_Type 
ON SELECTION POPUP Get_Cab DEACTIVATE POPUP 
ACTIVATE POPUP Get_Cab 
Nu_Cable = PROMPT() 
CLOSE DATABASE 
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USE Cabl_Lan ORDER Cable_Type 
SET FILTER TO Lan_Name = Nu_Lan 
SEEK Nu_Cable 
SET FORMAT TO Cable 
tee eee ee ee TF NO PREVIOUS CABLE PLANT OF THAT TYPE Aaa 
LP NOT. FOUND 
APPEND BLANK 
REPLACE Lan_Name WITH Nu_Lan 
REPLACE Cable_Type WITH Nu_Cable 
READ 
ESS 
eee ekkek** CABLE PLANT ALREADY EXTSTS ON GlVEN GAN ee 
NO. 
READ 
ENDIF 
CLOSE FORMAT 
CLOSE DATABASE 
YesNo = SPACE(1) 
CLEAR 
@ 10, 5 SAY “ENTER ‘Y‘’‘ TO ENTER FURTHER CABLE PLANT 
EQUIPMENT ON THE" 
@12, 5 SAY TRIM(Nu_Lan)+" LAN OR ANY OTHER KEY TO RETURN 
TOs Mien)“ : 
GET YesNo PICTURE "X" 
READ 
ENDDO 
CLOSE DATABASES 
CLEAR 
RETURN 


14. Cabl_ Del 
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* Program Name :; "@ABDeDEE erg 

* Ae 1 23 :  .D. GyeDaekusen 

* Date >: 10 August 1992 

* Version : Dbase IV Ver 1.1 

* Last Update 

* Purpose : Remove assigned cable plant equipment from 
a LAN 
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CLEAR 

eee EEE CHOOSE DTHESDESTREDSN@GlL SAR Eee WiOkRk 

USE Lan ORDER Lan_Name 

@ 8, 5 SAY "USE CURSOR KEYS TO CHOOSE THE DESIRED LAN AND 
PRESs sete rR 

DEFINE POPUP Get_Lan FROM 10, 20 PROMPT FIELD Lan_Name 
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ON SELECTION POPUP Get_Lan DEACTIVATE POPUP 
ACTIVATE POPUP Get_Lan 
Nu_Lan = PROMPT () 
CLEAR 
CLOSE DATABASE 
YesNe = *Y" 
DO WHILE UPPER(YesSNo) = "yY" 
CLEAR 
Poe CHOOSE THE DESTRED CABLE PLANT EQUIPMENT 
USE Cabl_Lan ORDER Lan_Name 
Selesiiwee LO Lan Name = Nu_Lan 
SBEK Nu_Lan 
IF .NOT. FOUND () 
CLEAR 
@ 10, 5 SAY "“ THERE IS NO CABLE PLANT EQUIPMENT 
PRESENTLY ASSIGNED" 
@i12, 12 SAY " TO THE "+TRIM(Nu_Lan)+" NETWORK" 
@i14, 12 SAY " PRESS ANY KEY TO RETURN TO PREVIOUS MENU" 
WATT il i 
CLOSE DATABASES 
CLEAR 
RETURN 
ENDIF 
@ 8, 5 SAY "USE CURSORS TO CHOOSE DESIRED CABLE PLANT 
EQUIPMENT" 
@9, 5 SAY "FOR LAN "4TRIM(Nu_Lan)+" AND PRESS ENTER" 
DEFINE POPUP Get_Cab FROM 10, 20 PROMPT FIELD Cable_Type 
ON SELECTION POPUP Get_Cab DEACTIVATE POPUP 
ACTIVATE POPUP Get_Cab 
Numeable = PROMPT () 
CLOSE DATABASE 
USE Cabl_Lan ORDER Cable_Type 
SEEK Nu_Cable 
SET FORMAT TO Cable 
READ 
ae Orbe ke TO SEE IF QUANTITY SET TO ZERO 
te Civamerty = 0 
DEGE TE 
CLEAR 
ENDIF 
CLOSE FORMAT 
CLOSE DATABASE 
YesNo = SPACE(1) 
CLEAR 
@10, 10 SAY "ENTER ‘Y’‘ TO REMOVE FURTHER CABLE PLANT 
EQUIPMENT ON THE" 
@12, 5 SAY TRIM(Nu_Lan)+" LAN OR ANY OTHER KEY TO RETURN 
TO PREVIOUS MENU"; 
GET YesNo PICTURE "xX" 
READ 
ENDDO 


Bo 


CLOSE DATABASES 
CLEAR 
RETURN 


Se Cabl_Sp 
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* Program Name : CABL SPeprg 

+ eA her >" "DD. Gabi cki som 

* Date > 2 Sept 1992 

* Version : Dbase IV Ver 1.1 

* Last Update 

* Purpose : To add or delete spare cable plant 
infemmat ion =uem she 

i database. 


KEKE KKK KE KEK KEKKEKEKE KEKE KEK KKEKEKE KEKE KEK KKK KKK KEEKE KK KK KEK KKK KKEK KKK KKK 
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CLEAR 

USE Cable_Pl ORDER Cable_Type 

@ 8, 5 SAY “USE CURSOR KEYS TO CHOOSE DESIRED CABLE Seka 
@9,18 SAY "AND PRESS ENTER" 

DEFINE POPUP Get_Cab FROM 10, 20 PROMPT FIELD Cable_Type 
ON SELECTION POPUP Get_Cab DEACTIVATE POPUP 

ACTIVATE POPUP Get_Cab 

SEEK PROMPT () 

SET FORMAT TO Cab_Spar 

READ 

CLOSE FORMAT 

CLOSE DATABASE 

RETURN 


16. Driv_Del 


KKK KEK KEK KKK KE KKK KKKKKEKKEKKEEKKEKKEKEKEKKEKKEHKKKKEKKEKKKE KK KKK KKK KKK KEK K 
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Progagam Name: DRiVapE leeds 
Author : Dp. G. Diekrson 
Date > 04 August 1992 
Version : Dbase IV Ver 1.1 


Last Updated: 04 August 1992 


Purpose : To delete a drive from a system unit 


+ + + + + OF F FF F 


Programs called: Get_Unit 
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KKK KKK KKK KKK KKK KKK KKK KKKKEKEKEKRKEKEKEKRKEKKEKKEKKEKKKEKKEKEKKKKKKKKKKKK 
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CLEAR 
DO Get_Unit 
CLOSE DATABASES 
LE SiRivives unenum) =smeNONE. ASSIGNED“ 
CLOSE DATABASES 
CLEAR 
RETURN 
ENDIF 
YesNo = "yY" 
DO WHILE UPPER(YesNo) = "Y" 
USE Drive ORDER Sys_unitno 
SEEK Sys_un_num 
te NOL. HOUND } 
CLEAR 
@i10, 5 SAY "THERE ARE NO DRIVES ASSOCIATED WITH SYSTEM 
UNIT "+TRIM(Sys_un_num) 
@12, 17 SAY "PRESS ANY KEY TO RETURN TO PREVIOUS MENU" 
WAL a iT Ti 
CLOSE DATABASES 
CLEAR 
RETURN 
ENDIF 
CLEAR 
SET FILTER TO Sys_unitno = Sys_un_num 
Caco Ye enMooor, LHe DRIVE TO DELETE FROM ’sSYsTEM UNIT 
"+TRIM(Sys_un_num) 
@9, 17 SAY "WITH CURSOR KEYS AND PRESS ENTER" 
DEFINE POPUP Get_Driv FROM 10, 20 PROMPT FIELD Drive_Ltr 
ON SELECTION POPUP Get_Driv DEACTIVATE POPUP 
ACTIVATE POPUP Get_Driv 
CLEAR 
ReGee leeks YOU SURE??? ENTER ‘Y’ TOsCONTINUE OR ANY OTHER 


KEY TO ABORT" TO YN 


ioe ren (YN) =e y * 
LOCATE FOR Drive_Ltr = PROMPT() 
DELETE 
CLEAR 


@10, 5 SAY "DRIVE "+TRIM(PROMPT())+" HAS BEEN REMOVED 
FROM SYSTEM UNIT "+TRIM(Sys_un_num) 

@12, 17 SAY "PRESS ANY KEY TO CONTINUE" 

WALT iT} 4 

ELSE 

CLEAR 

@ 10, 5 SAY "PROCEDURE ABORTED,,, RETURNING TO MAIN 
MENU" 

@ 12, 16 SAY "PRESS ANY KEY TO CONTINUE" 

WALT 'T |} 

CLOSE DATABASES 

CLEAR 


2) aL 


RETURN 
ENDIF 
YesNo = SPACE(1) 
CLEAR 
@i10 ,5 SAY "ENTER ‘Y’ TO DELETE MORE DRIVES FROM SYSTEM 
UNIT "+TRIM(Sys_un_num) 
@12, 12 SAY "OR ANY OTHER KEY TO RETURN TO PREVIOUS MENU"; 
GET YesNo PICTURE "X" 
READ 
DO CASE 
CASE UPPER(YesSNo) = "Y" 
CLEAR 
OTHERWISE 
CLEAR 
@ 10, 5 SAY "NO FURTHER DRIVES TO BE DELETED FROM 
"+TRIM(Sys_un_num) 
@i12, 8 SAY "PRESS ANY KEY TO EXIT TO PREVIOUS MENU" 


WAIT " * 
ENDCASE 
ENDDO 
CLOSE DATABASES 
CLEAR 
RETURN 
17. Drive_Ent 


KKEKKKKKKKKEKEKKKEKKEKEKEKKEEKEKEKEKEKEKEKEKEKEKEKEKEKKEKEKKEKEKEKKEKKKKK KKK KK KKK KKKKK 
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*Program Name: DRIV_ENT.prg 


*Author - DD. G. Dickson 
*Date : 17 June 1992 
*Version >: Dbase IV Format 1.1 


*Last Updated: 13 July 1992 


*Purpose : This program adds disk drives to a system unit 
* 
KKEKKKKKKKKKKHHKHEKHEKEKEHHEEKHKHEKEKHAEKEAHHKAEKHEKKEKKHEHKKKHEKEHKHEAKKKKKKKKKKKK 
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CLEAR 

DO Get_Unit 

CLOSE DATABASES 

IF TRIM(Sys_un_num) = "NONE ASSIGNED" 
CLOSE DATABASES 
CLEAR 
RETURN 


o2 


ENDIF 
YN _ T WG ul 
DemHrip UPPER(YN) = "“Y" 
USE Drive 
CLEAR 
** ASSIGN CORRECT FORMAT FOR APPENDING 
ACCEPT "ENTER ‘H’ FOR HARDDRIVE, ANY OTHER KEY FOR FLOPPY" 
T@erH 
IF UPPER(FH) = "H" 
SET FORMAT TO Hrddrive 
ELSE 
SET FORMAT TO Floppy 
ENDIF 
CLEAR 
APPEND BLANK 
REPLACE Sys_unitno WITH UPPER(Sys_un_num) 
READ 
CLOSE FORMAT 
CLOSE DATABASE 
CLEAR 
ACGHE DR "ENTE Rass TO ADD ANOTHER DRIVE TO SELECTED UNIT OR 
Pea Ounmnmrmey TO BXIT" TO YN 


ENDDO 
CLOSE DATABASES 
CLEAR 
RETURN 
18. Drv_Quer 


keke KkeKeKe KKK KKEKKEK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKEKK 
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PeErooramnevame: DRVY_QUER.prg 

= Aut her emer Micki son 

* Date : QO7 August 1992 

* Version : Dbase IV Ver 1.1 

* Last Updated: 

* Purpose : Edit/Query a drive 
* 

* Programs 

* Cangred meee 1 


KKK KKKKKKEKEKKK KKK KKK KK KKK KKK KK KKK KKK KKK KKK KKK KK KK KKK KK KKKKKKK 
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CLEAR 

DO Get_UNit 

CLOSE DATABASES 

IF TRIM(Sys_un_num) = "NONE ASSIGNED" 
CLOSE DATABASES 
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CLEAR 
RETURN 
ENDIF 
USE Drive ORDER Sys_unitno 
SET FILTER TO Sys_umitno = Sys_un num 
SEEK Sys_un_num 
IF .NOT. FOUND () 
CLEAR 
@10, 5 SAY "THERE ARE NO DRIVES ASSOCIATED WITH SYSTEM 
UNIT "+TRIM(Sys_un_num) 
@i12, 17 SAY "PRESS ANY KEY TO RETURN TO PREVIOUS MENU" 
WALT it it 
CLOSE DATABASES 
RETURN 
ENDIF 
CLEAR 
@8, 5 SAY “CHOOSE THE DRIVE, TO QUERY/EDIT FROM Syste aoa. 
"+TRIM (Sys_un_num) 
@9, 19 SAY "WITH CURSOR KEYS AND PRESS ENTER" 
DEFINE POPUP Get_Driv FROM 10, 20 PROMPT FIELD Drive_ltr 
ON SELECTION POPUP Get_Driv DEACTIVATE POPUP 
ACTIVATE POPUP Get_Driv 
USE Drive ORDER Sys_unitno 
SET FILTER TO SysvTuUnltnos=sovs Une aum 
LOCATE FOR Drive_ltr = PROMPT() 
IF TRIM(Drive_Type) = "EXTERN HRDDRIVE" .OR. TRIM(Drive_Type) 
= “TI NTERN@HRDDREVE 
SET FORMAT TO HrdDrive 
ELSE 
SET FORMAT TO FLOPPY 
ENDIF 
LOCATE FOR Drive_Ltr = PROMPT() 
READ 
CLOSE FORMAT 
CLOSE DATABASE 


GC lleva le: 

RETURN 
19. Dr_S_ Del 
KaEKKKKKKEKKKEKEKEKEKEKEKEKEKKKKEKKEKKKKEKKKKKKKK KKK KK KKK KK KKK K KK KKK KKK 
kraekekkeKekeKeKeKkeKeKeKeKkek 

* SE rogran Name: | brasserie pid 

* RUE Note > DB. G. Diekisoen 

* Date pede SRE 1 oo7 

* Version > DBbase Eyes 

* Last Updated: 04 August 1992 
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Purpose : To delete a spare drive from a system unit 


+ + 


* Programs called: none 
Kaew KK KKK KK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KKK KK KKK 


xekxekeaekeKkekeke keke kk 


CLEAR 
YesNo = "y" 
DO WHILE UPPER(YesSNo) = "Y" 
USE Drive ORDER Drive_ID 
SET FILTER TO Sys_unitno = "SPARE" 
Guo. Y we OneOOse ete esraARe DRIVE TO DELETE " 
@9, 6 SAY "WITH CURSOR KEYS AND PRESS ENTER" 
DEFINE POPUP Get_Driv FROM 10, 20 PROMPT FIELD Drive_ID 
ON SELECTION POPUP Get_Driv DEACTIVATE POPUP 
ACTIVATE POPUP Get_Driv 
CLEAR 
ACGEEme ARE YOU SURE?? ENTER “Y’ TO G@NTINUE OR ANY OTHER 
MEV tOowaABbORT” TO YN 
IF UPPER(YN) = "yY" 
SEEK PROMPT () 
BJD 6) A) ed 
CLEAR 
@i0, 5 SAY "DRIVE "+TRIM(PROMPT())+" HAS BEEN REMOVED 
FROM THE DATABASE" 
Gib, SiyoayeoPRe oo ANY KEY TO CONTINUE" 
WAIT iT} ul 
ELSE 
CLEAR 
QG@ 0, 5 SAY "PROCEDURE ABORTED,,, RETURNING TO MAIN 
MENU " 
@i2, 16 SAY "PRESS ANY KEY TO CONTINUE" 
WALT iT} iT 
CLOSE DATABASES 
CLEAR 
ps WRN 
ENDIF 
YesNo = SPACE(1) 
CLEAR 
@i10 ,5 SAY "ENTER ‘Y’ TO DELETE MORE SPARE DRIVES ” 
@i12, 12 SAY "OR ANY OTHER KEY TO RETURN TO PREVIOUS MENU"; 
GET YesNo PICTURE "X" 
READ 
DO CASE 
CASE UPPER(YeSNo) = "Y" 
CLEAR 
OTHERWISE 
CLEAR 
@ 10, 5 SAY "NO FURTHER DRIVES TO BE DELETED FROM 
"+TRIM (Sys_un_num) 
@12, 8 SAY "PRESS ANY KEY TO EXIT TO PREVIOUS MENU" 


S| 3 


WALT it i 


ENDCASE 
ENDDO 
CLOSE DATABASES 
CLEAR 
ae URN 
20. Dr_S_ Ent 
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*Program Name: DR_S_ENT.prg 


*Author : '"D. Geaabiecki sen 
*Date : 4 SEPTEMBER 1992 
*Version : Dbase IV Format 1.1 


*Last Updated: 9 SEPT 1992 
* 


*Purpose : This program adds spare disk drives to the 


database. 
* 


kakkeKkeKkeKeKeKeKe KKK KKK KKK KK KKK KKK KKK KKK KKK KK KK KKK KKK KK KKK KKK KKKKEKK 
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CLEAR 
YN _ ul Y iT 
DO WHILE SOE EER (YN) B= 
CLOSE DATABASES 
USE Drive 
CLEAR 
** ASSIGN CORRECT FORMAT FOR APPENDING 
ACCEPT "ENTER ‘'H’ FOR HARDDRIVE, ANY OTHER KEY FOR FLOPPY" 
Teme 
DP UPPER) = 9" H= 
SET FORMAT TO Hrddrive 
Por 
SET FORMAT TO Floppy 
ENDIF 
CLEAR 
APPEND BLANK 
REPLACE Sys_unitno WITH "SPARE" 
READ 
CLOSE FORMAT 
CLOSE DATABASE 
CLEAR 
ACCEPT “ENTER ‘Y’ TO ADD ANOTHER DRIVE TO SEBBGTEDPaUNI roe 
ANY "OTHER KEY TO EXTER Leow) 
ENDDO 
CLOSE DATABASES 
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CLEAR 
RETURN 


eam Dr_S_Que 


KKK KKEKKEKRKEKEKEKRAEKKREKKEKEKREKRKRKEKREKRKEKRKRKEKREKREKREKEKEKRKEKRKEKEKKR KKK KKK 
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* Program Name: DR_S_QUE.prg 

=] Senor ee ee One DT Chca SON 

* Date Oy eAuguse. LOO? 

* Version : Dbase IV Ver 1.1 

* Last Updated: 

* Purpose : Edit/Query a spare drive 
* 

* Programs 

aca Lea » Ciee_igatte 

, a a a a a a a ee eo oe 
kKaekekekekeaekekeeKkekes 

CLEAR 

USE Drive ORDER Drive_ID 

Peeper tbraR TO Sys _unitno = "SPARE" 


Gee oo ene Ostet SPARE DREVE TO QUERY/EDIT " 
@ 9, 7 SAY "WITH CURSOR KEYS AND PRESS ENTER" 
DEFINE POPUP Get_Driv FROM 10, 20 PROMPT FIELD Drive_ID 
ON SELECTION POPUP Get_Driv DEACTIVATE POPUP 
ACTIVATE POPUP Get_Driv 
SEEK PROMPT () 
IF TRIM(Drive_Type) = "EXTERN HRDDRIVE" .OR. TRIM(Drive_Type) 
= "INTERN HRDDRIVE" 
SET FORMAT TO HrdDrive 
ELSE 
Set FOR Tes LOPPyY 
ENDIF 
READ 
CLOSE FORMAT 
CLOSE DATABASE 
CLEAR 
Be LOURN 


22. Get_Unit 
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pele Cogram Name. GET UNIT prg 


on 


* Avlehor Da Gre biter sem 

* Date : 2 9 Fania 92 

* Version : Dbase IV Ver 1.1 

* Last Updated: 06 August 1992 

* 

* Purpose : Locates a SYSTEM UNIT by either node ID or 


System Unit No. 
* for editing querey or deletion of accessories 
or drives. 


* Programs called: N_Choice 
* 


* 
KEKKEKKEKKKEKKEKKEKEKEKKEKKEKKKKKEKKKKEKKEKEKEKKEKEKEEKEKKEKKEKKEKEKKEKEKEEKEKEKEKEEK 


KKEKKKKKKKEKKEKEK 


CLEAR 
CLOSE DATABASES 
PUBLIC Sys_un_num, Node_YN 
Dy SL Une nine 
TKK KAKRAEKKKAEK ATLOW QUEREY OF NODE BY SELTHER  N@@ aaa. § 
SYSTEM UNIT NO 
N_or_S = SPACE(1) 
YN = TRUE 
DO WHLLE SY Nee Ren 
YN = "PALSE 
@i0;"5 SAY "ENTER ‘Nae SEARCH BY Viera sil... 
@ei2, 5 SAY “ENTER YS 20 SEARCHeBY SYoce Ulery ler. 
GET Neon 5 PICivRiw 
READ 
DO CASE 
AS eee ee NODE SUSE D. LO seOe he eA Gerona 
CASE UPPER(N “or 2S) = 9 
DO N&@herce 
IF Node_YN = "NONE" 
CLOSE DATABASES 
Ssys_un_num = “NONE ASSTENEEE 
CLEAR 
RETURN 
ENDIF 
CLEAR 
CLOSE DATABASES 
NuNode = PROMPT () 
USE Node ORDER Node_ID 
SEEK NuNode 
x*eeEeX**CHECK TO ENSURE THERE 257904 > .6V4o nial pam 
ASSIGNED TO THE NODE 


IF TRIM(Sys_unitno) = "NONE ASSIGNED" 
Sys_un_num = Sys_unitno 
CLEAR 


@10, 5 SAY “THERE IS NO SYSTEM UNIT PRESENTLY 
ASSIGNED TO NODE"+Node_ID 


oe 


@i12, 12 SAY "PRESS ANY KEY TO RETURN TO PREVIOUS 
MENU " 
WAIT rT iT 
CLEAR 
CLOSE DATABASES 
RETURN 
Bio cs 
Sys_un_num = Sys_unitno 
ENDIF 
(ee One eos ist mmlnokhy £5 A SYSTEM UNIT IN THE 
DATABASE 
CLOSE DATABASES 
CLEAR 
USE Sys_Unit ORDER Sys_unitno 
SEEK Sys_un_Num 
IF .NOT. FOUND() 
CLEAR 
Sys_un_Num = "NONE ASSIGNED" 
a 10> S SAY “SYSTEM UNIT "+TRIM(Sys_un_Num) +" 
CANNOT BE FOUND IN DATABASE" 
@i12, 8 SAY "PLEASE CHECK THE SYSTEM UNIT ASSIGNED 
TO NODE "+Nunode 
@i14, 13 SAY "PRESS ANY KEY TO RETURN TO PREVIOUS 


MENU iT 
WAL Sh iT iT} 
CLEAR 
CEOsEe BATABASES 
Re Or 
ENDIF 
CLOSE DATABASES 
RETURN 
ee eee ENP SYSTEM UNIT Bee SYSTEM UNIT NO 
CASESUPPBERWN Or Ss) = “S" 
CLEAR 
USE SyS_unit ORDER Sys_unitno 
SvomuUlbenum- = SPACE (15) 
Ceres oly "NIE R THE SYoreM UNIT NO " 
@ 12, 5 SAY "OR PRESS ENTER TO EXIT TO PREVIOUS 
MENU " ; 
Gel oyiseun mum PICTURE "XXXXXXXXXXKXKXXXX " 
READ 
SEEK UPPER (Sys_un_num) 
DO CASE 


*x*xx*** NOTHING ENTERED,,, EXIT TO PREVIOUS MENU 
SASf ove _unenum = "" 

CLEAR 

CLOSE DATABASES 

SyS_un_num = “NONE ASSIGNED" 

RETURN 
ke ekkeK* SYSTEM UNIT NOT FOUND IN DATABASE,,,EXIT 
CASE .NOT. FOUND() 


2) 


CREAR 

@ 10, 5 SAY "NO SYSTEM UNIT LOCATED IN DATABAGE 
WITH NO. "+TRIM(Sys_un_num) 

@ 12, 15 SAY "PLEASE CHECK SYSTEM UNIT NO 
AGAIN" 

@14, 12 SAY "“ PRESS ANY KEY TO RETURN TO 
PREVIOUS MENU" 

WAIT " '" 

SYS_.Un_mam -—. "NONE Aso lGhNre= 

CLOSE DATABASES 


CLEAR 
RETURN 
ENDCASE 
OTHERWISE 
CLEAR 
@idQ, 5 SAY "ILLEGAL ENTRY!,, #e02eER SN |On 9S ™ 
@i12, 9 SAY "PRESS ANY KEY TO TRY AGAIN" 
Yi RUE! 
ENDCASE 
ENDDO 
CLOSE DATABASES 
CLEAR 
RETURN 
23% Nodent_1 
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*Program name : NODENT_1.prg 

* Pe hier : DD. G.@Backison 
*Date 2 lS sain es 9 2 
*Version : Dbase IV Ver 1.1 


*Last Updated : 21 July 1992 


*Purpose : Add a new node to the LAN database while also 
adding a 
. new system unit and allowing the addition of 
system and 
application software. 


x 
KEKKKKKKEKKKEKEKEKKKEKE KKK KKK KKEKEKKEKKKEKKKEKKEKKEKKEKEKKEKEKKEKKEKKKKKEKKEK 


KEKKKKEKKEKKKKEK 


* RUN THE UNIT_ENT PROGRAM TO ABE THE SYSTEM UNIT TO THe 
DATABASE 


KEKE KKKEKKEKE KEK KEKE KEKE KEKE KKK KEKE KEKE KKK KEKE KEK KEE KKK KEKE KEKEKEKKKEKEK 


KKKKKKKKEKKKKEK 


PUBLIC NuNode 
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CLEAR 
Agiceng = .T. 
BO) CLS 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KEKE KKK KKK KEKE KKK KKK KKK KK KKKEKK 


keke keKkeKkeKeKkeKeKeK* 


* GET THE NODE ID AND ENSURE THERE IS NOT ALREADY A NODE BY 
SlvEN SID 


KEKE KKK KKK KKK KKK KKK KEKE KKK KK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KK KKK eK 


kKekeKkeKkeKkeKeKkeKkeKkeKkek 


DO WHILE Adding 
USE Sys_Unit ORDER Sys_Unitno 
NuNode = SPACE(10) 
CLEAR 
@10, 5 SAY "ENTER THE NODE ID ‘ 
@i12, 5 SAY "OR PRESS RETURN FOR PREVIOUS MENU"; 
GET NuNode PICTURE "XXXXXXXXXX" 
READ 
SEEK UPPER (Sys_un_num) 
REPLACE Node_ID WITH UPPER (NuNode) 
CLOSE DATABASE 
USE Node ORDER Node_ID 
oe@meckK TO ENSURE SYSTEM UNIT NO IS NOT IN USE 
SEEK UPPER (NuNode) 
DO CASE 
mae NOP thea eRelo,) ja, Gott TO, PREVIOUS MENU 
CASE NuNode = " " 
ielelisgley =. 19. 
LOOP 
lees tN Usk, ,,, BALL TO PREVIOUS, MENU 
CASE FOUND () 
CLOSE DATABASE 
USE Sys_Unit ORDER Sys_Unitno 
SEEK UPPER (Sys_un_num) 
REPLACE Sys_Unitno WITH "SPARE" 
CLOSE DATABASE 
? ~GHR{7) 
CLEAR 
@i10, 5 SAY " NODE ID ALREADY IN USE" 
@i2, 5 SAY " PRESS ANY KEY TO TRY AGAIN" 
WAL dh it tt 
Se NOeNeChE © DP POUND,,,,,,ENTER NODE. DATA 
CASE .NOT. FOUND() 
DO Add_Node 


KKK KKK KKK KKK KEKE KKK KKK KKK KKK KK KKK KKEK KKK K KKK K KKK KKK KK KKK KK 


kkeekkkkekekeke 


*+*****% ASK USER WHETHER SYSTEM SOFTWARE IS TO BE ADDED TO 
NODE kkek«k«e 


KKK KKK KKK KKK KKK KKKEKEKKEKKEKEKRKEKEKKKEKEKKKKEKEKK KKK KK KK KKK KKK KK KKKEKK 
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CLEAR 


On 


YesNo = "y" 
DO WHILE UPPER(YesNo) = "Y" 
YesNo = SPACE(1) 
@10 ,5 SAY "ENTER ‘Y’ TO ENTER SYSTEM SOFTWARE" 
@il2 ,5 SAY "OR ‘N’ TO PROCEED TO APPLICATION 
SOFTWARE ENTRY"; 
GET YesNo PICTURE "X" 
READ 
DO CASE 
CASE UPPER(YesNo) 
DO Add_Sys 
CASE UPPER (YesNo) 
CLEAR 
@i10,5 SAY " NO SYSTEM SOFTWARE CHOSEN TO BE 


ey Mey 


ath 


ENTERED"® 
WALT 
LOOP 

OTHERWISE 

@ Ghee ue) 
CLEAR 
@ 10,5 SAY S2NVALID ENTRY 3 ee eee ee 

oN u 
WALT 

ENDCASE 
ENDDO 


KKK KKK KKK KKK KKK KKK KKK K KEKE KKK KKK KK KKK KKEKK 
keke keKeKeKekeKke 

tee eee eA ADD APPLICATION SOFTWARE TO THE NODE 
kKKeKKKKKKK KK KK KKK KKK 

KEKKKKKKK KKK KK KKK KKK KEKKKKEKEKEKEKKKKEKEKKKKKR KK KKK KK KKK KKKKRKKEK 
kKkkekkkekekeKkekeke 


YesNo = “"yY" 
DO WHILE UPPER(YesNO) = "yY" 
YesNo = SPACE(1) 
CLEAR 
@i10, 5 SAY "ENTER ‘’Y’ TO ADD APPLICATION SOFTWARE 
Low GbE 
@i2, 5 SAY "OR ‘'N’ TOsExXIT TOsvEh”™ 
GET YesNo PICTURE "xX" 


READ 
DO CASE 
CASE UPPER(YesNo) = "Y" 
DO Add_App 
CASE UPPER(YesNo) = "N" 
CLEAR 


@i0, 5 SAY " NO APPLICATION SOFTWARE CHOSEN 
TO BE ENTERED: 

@ 12, 5 SAY “ PRESS ANY KEY TO RETURN TO 
PREVIOUS MENU" 

AGeanic =— se 

WALT iT iT 


OZ 


OTHERWISE 
eerily) 
CLEAR 
Ceiyemon. eENVALID ENTRY,,, ENTER ‘Y’ OR 


WALT 
ENDCASE 
ENDDO 
ENDCASE 
ENDDO 
CLEAR 
RETURN 


24. Nodent_2 


KKEKKKKKKKKKKRKEKKKEKKEKKKKEKKKKEKKKKEKKKKEKKKEKKEKKEKKEKEKKEKKEKKEKEKKEKEKKEER 


kKarkekekeekeKeKeKeKerkekee 


eee rogram Name: —NOBEN TL. preg 

* Author ; DD. "Gs Diewicon 

* Date > gomuuly 1992 

* Version we Sease liv eVver 1. 1 
* 

* 


Last Updated: 4 Sept 1992 


* Purpose : Add a new node to a network where the system 
unit to be 
* 


used already exists in the Database. 
KaeKeKeK KKK KKK KK KKK KKKRKEKRKEKKEKRKEKKKEKKKKKRKKKKRKKRKKKKEKRKKKRKKRK KKK KKKRKKSK 
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CLEAR 
USE Sys_Unit ORDER Sys_Unitno 
So eon e lites oleM  UNTTSvO LO BESUSED WITH THE NODE 
ByoeUn num =eoPACk (15) 
Ce a Soe See Tees  SlteM UNIT NO. OF THE SYSTEM UNIT" 
Geizee> SAY “TC BE USbeenitn THe NeW NODE,,,," 
@i14, 5 SAY "OR PRESS ENTER TO RETURN TO PREVIOUS MENU"; 
GET Sys_un_num PICTURE "XXXXXXXXXXXXXXxX" 
READ 
FeCHECRK 2O BNSURESEHERE fs A SYSTEM UNIT 
SEEK UPPER(Sys_un_num) 
BO CASE 
* N@wSYsteM UNI® NO ADDER, Sex iT TO PREVIOUS MENU 
CASEaoy sun num. 
RETURN 
* SYSTEM UNIT NO NOT FOUND,,, ERROR MESSAGE AND EXIT 
CASE .NOT. FOUND () 
Pe CHRA? } 
CLEAR 
@10, 5 SAY " NO SYSTEM UNIT FOUND IN DATABASE WITH 
oe 
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@i2, 5 SAY " GIVEN SYSTEM UNIT NUMEaE pete oe 
@id, 5 SAY © KEY TO RETURN TOREREVILOUSSMENU: 


WAT’ 
RETURN 
* SYSTEM UNET NUMBER FOUND,,, TWO GASae 
CASE FOUND () 
*CHECK TO SEE IF THE SYSTEM UNIT 1S ASSsSIi@ee ie. 
NODE 
CLOSE DATABASES 
USE Node ORDER Sys_unitno 
SEEK UPPER(Sys_un_num) 


DO CASE 
* SYSTEM UNIT IS PRESENTOY ASclGhep 1684 Nope 
CASE FOUND () 
CLEAR 
YesNo 7. Y " 
DO WHILE UPPER(YesNo) = "Y" 


YesNo = SPACE(1) 

@ 10, 5 SAY "SYSTEXMUNIT Witee UNIT abo 
"+TRIM (Sys_un_num) 

@1i2, 5 SAY "IS PRESENTLY ASSIGNED TO NODE 
"+Node_ID 

@i15,/™5 SAY "ENTER ‘Y’ TOsREMOVE SYSREM UNIT 
FROM NODE "+Node_ID 

@i16, 5 SAY "AND ASSIGN IT TO NEW NODE" 

@ 18, 5 SAY "ENTER ‘’N’ TO QUL® TOsPREVEOS 


MENU" ; 
GET YesNO PICTURE "X" 
READ 
DO CASE 
* MISTAKE MADE,,,,,,,EXIT TO PREVIOUS 
MENU 
CASE UPPER(YesNo) = "N" 
CLEAR 
@ ee 5 SAY "NO CHANGE 
REQUESTED....... " 
@12, 5 SAY "PRESS ANY KEY TO RETURN 
TO PREVIOUS MENU. " 
Wea i il 
RETURN 
* USE SYSTEM UNIT FOR NEW NODE...... 
CASE UPPER(YesNo) = "Y" 
CLEAR 
REPLACE Sys_unitno WITH "NONE 
ASSIGNED" 
YesNo = "N" 
CLOSE DATABASES 
OTHERWISE 
CLEAR 
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? CHR(7) 
@10, 5 SAY "INCORRECT KEY,,, ENTER 
PetieR “Y" OR ’N*’” 
ENDCASE 
ENDDO 
* Se TEM Tao LseaeoeeNTEhY IN USE BY A NODE 
ENDCASE 
*MAIN PROGRAM WHICH ENTERS NODE AND ANY 
SOFTWARE 
CLEAR 
USE Sys_Unit ORDER Sys_Unitno 
NuNode = SPACE(10) 
CLEAR 
Gel easly “ENTER THE NEW NODE ID."; 
GET NuNode PICTURE "XXXXXXXXXxX" 
READ 
SEBReoyY S_Unanum 
REPLACE Node_ID WITH NuNode 
CLOSE DATABASE 
USE Node ORDER Node_ID 
Zone Lome iisunkt THAT SYSTEM UNIT NO IS NOT 
BEING USED 
SEEK UPPER (NuNode) 
DO CASE 
NOt omeehteRED,, EXIT TO PREVIOUS MENU 
CASE NuNode = " '" 
CLEAR 
CLOSE DATABASE 
USE Sys_unit ORDER Sys_unitno 
SEEN oYsS_ Uno num 
REPLACE Node_ID WITH "SPARE" 
CLOSE DATABASE 
@ LCT 5) SAY : NO NODE ED 
ENTERED, ,,RETURNING TO PREVIOUS MENU" 
WAIT 
RETURN 
empha  AbReoby IN USE,,,,,,EBX1T TO 
PREVIOUS MENU 
CASE FOUND () 
CLOSE DATABASE 
USE Sys_unit ORDER Sys_unitno 
SEEK Sys_unitno 
REPLACE Node_ID WITH "SPARE" 
CLOSE DATABASE 
2? CHR?) 
CLEAR 
@ diye) 5 SAY "NODE ID ALREADY IN 
USE,,,RETURNING TO PREVIOUS MENU" 
WALT 
RETURN 


INNS 


*** NODE ID NOT FOUND,,, APPEND NODE AND ADD 
SOFTWARE IF DESIRED 
CASE .NOT. FOUND () 
DO Add_Node 


CLEAR 

n***SADD SYSTEM SOFIA 
paesSNO = "y" 

PO WHIEE, UPRER eres \© i — se. 


YesNo = SPACE(1) 

@10,5 SAY "ENTER ‘Y’ TO ENTER SYSTEM 
SOFTWARE " 

@ 12,5 SAY "OR WN TO PROGEEDIiTe 
APPLICATION SOFTWARE ENTRY"; 

GET YesNo PICTURE "X" 


READ 
DOBEASE 
CASE UPPER(YeSNo) = "Y" 
DO Add_Sys 
CASE UPPER(YeSNo) = "N" 
CLEAR 
@i0, 5 SAY "NO SYSTEM SOFTWARE 
CHOSEN TO BE ENTERED" 
WAIT 
LOOP 
OTHERWISE 
2 CHER?) 
CLEAR 
YesNow=- "Y" 
@ 180), 5 SAY "INVALID 
ENTRY,,,;, ,LLUHERY Y 3eeeaaT 
WAIT 
ENDCASE 
ENDDO 
*** ADD APPLICATION SOFTWARE 
YESNO >=. 
DO WHILE UPPER(YeSNo) = "“"yY" 
YesNo = SPACE (1) 
CLEAR 


@ 10, S™ SAY “ENTER “YO 2p 
APPLICATION SOFTWARE TO NODE" 

C2, o motte YOR “N* TO (Exit ae 
PREVIOUS MENU"; 

GET YesNo PICTURE "xX" 


READ 
DO CASE 
CASE UPPER(YeSNo) = "Y" 
DO Add_App 
CASE UPPER(YesSNo) = "N" 
CLEAR 


@10, 5 SAY "NO APPLICATION 
SOFTWARE TO BE ENTERED" 


SLIOkKs 


Cee SAYee PRESS ANY KEY TO 
RETURN TO PREVIOUS MENU © 

WA LT rT iT) 

OTHERWISE 

Panerin (7 ) 

CLEAR 

CaaS SAY “TNVALID ENTRY,,, 
REINER am © eee Ne 


YesNo = "y" 
WALT 
ENDCASE 
ENDDO 
ENDCASE 
ENDCASE 
RETURN 
Zoe Node_Ch 
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Program Name : NODE_CH.prg 
Author >: D. G. Dickison 
Date >; 12 August 1992 
Version : Dbase IV Ver 1.1 


Last Update 


+ + + + + + 


Purpose : Changes the system unit assigned to a node 
* Programs called: N_CHOICE 


keke KkeKeKe Keke Ke KKK KKK KKK KKK KKK KK KKK KKK KR KKK KK KKK KKK KK KKK KKK KK KKK KEK 
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CLEAR 
DO N_Choice 
IF Node_YN = “NONE" 
CLEAR 
CLOSE DATABASE 
RETURN 
ENDIF 
NuNode = PROMPT () 
USE Node ORDER Node_ID 
SEEK NuNode 
IF Sys_unitno # "NONE ASSIGNED" 
oo ere JO oer LE NODE PRESENTLY HAS A SYSTEM UNIT 
CLEAR 
YesNo = SPACE(1) 
@10, 5 SAY "SYSTEM UNIT "+TRIM(Sys_unitno)+" IS PRESENTLY 
ASSIGNED TO " 


JLo) Fy 


@i12, 5 SAY “NODE "+TRIM(NuNode)+" ,,, ENTER ‘Y’ TO REMOVE 
SYSTEM UNIT" 
@14, 5 SAY "AND CONTINUE WITH THE PROCESS OR ANY OTHER KEY 
TOVABORT. 
GET YesNo PICTURE "X" 
READ 
eeAKX* CONTINUE WETEeeOloRAT nel 
IF UPPER(YesNo) # "yY" 
CLEAR 
@i10, 5 SAY "OPERATION ABORTED, PRESS ANY KEY TO RETURN 
TO PREVIOUS MENU" 
WALT iT | u 
CLOSE DATABASE 
CLEAR 
RETURN 
ENDIF 
ENDIF 
Sys_unit2 = Sys_Unitno 
CLEAR 
eee xaexxX* OBTAIN THE SYSTEM Uli Nee Loser ober. 
Sys2un num = SPACE 1S) 
@ 10, 5 SAY "ENTER THE SYSTEM UNIT NO OF THE UNIT TO ae reae 
TO "4+TRIM(NuNode) ; 
GET Sys_un_num PICTURE "XKXXXXXXXXXXXXXK" 
READ 
REEKKEKE ENSURE SYSTEM UNITED iSite feo: 
USE Sys_Unit ORDER Sys_unitno 
SBEK Sys_un_num 
eR EE AEX UNIT NOT FOUND ae oak 
IF NOT. FOUND 
CLEAR 
@ 10, 5 SAY "SYSTEM UNIT "4+TRIM(Sys_un_num)+" CANNOT BE 
FOUND IN DATABASE" 
@ 12, 10 SAY "PLEASE RE CHECK THE SYSTEM UNIT NUMBEE 
ENTERED" 
@i14, 11 SAY "PRESS ANY KEY TO RETURN TO THE PREVIOUS MENU" 
WALT" " 
CLOSE DATABASE 
RETURN 
ENDIF 
CLOSE DATABASE 
**¥X*eX*X CHECK TO SEE IF UNIT IS ASSOCIATED WITH ANC Tae. Gan 
CLEAR 
USE Node ORDER Sys_unitno 
SUE SS) bh alagybligg 
IF FOUND () 
YesNOm=uoe Ser) 
CLEAR 
@10, 5 SAY "SYSTEM UNIT "“+TRIM(Sys_unenum) +" Tse -keoev ie 
ASSOCIATED Witn 
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Ci oeo we NODE) +RRIM( Node ID)+" ,,, ENTER ‘Y’‘ TO 
CONTINUE AND REMOVE THIS" 

@14, 5 SAY "ASSOCIATION OR ANY OTHER KEY TO ABORT AND 
RETURN TO PREVIOUS MENU"; 

See shlene fer URE |) x. 


READ 
oe eeeONTiNUE Wil OPERATLEN 
IF UPPER(YesNo) = "Y" 


REPLACE Sys_unitno WITH "NONE ASSIGNED" 
CLOSE DATABASE 
USE Sys_unit ORDER Sys_unitno 
SEEK Sys_unit2 
REPLACE Node_ID WITH "SPARE" 
CLOSE DATABASE 
oon ~~ ABORT OPERATION 
ELSE 
CLEAR 
@i10, 5 SAY "OPERATION ABORTED,, PRESS ANY KEY TO RETURN 
TO PREVIOUS MENU" 
WALT it iT} 
CLEAR 
CLOSE DATABASE 
RETURN 
ENDIF 
ENDIF 
CLOSE DATABASE 
a Thee NoveoYolEM UNIT NO INTO NODE 
USE Node ORDER Node_ID 
SEEK NuNode 
REPLACE Sys_unitno WITH Sys_un_num 
CLOSE DATABASE 
USE Sys_Unit ORDER Sys_unitno 
SEEK SyYS_un_num 
REPLACE Node_ID WITH NuNode 
CLOSE DATABASE 
CLEAR 
@10, 5 SAY "NODE "+TRIM(NuNode)+" IS NOW USING SYSTEM UNIT 
"+TRIM (Sys_un_num) 
@12, 10 SAY "PRESS ANY KEY TO RETURN TO PREVIOUS MENU" 
WATT iT} iT} 
CLOSE DATABASES 
CLEAR 
RETURN 


ILO 


26. Node_Del 


KKK KKKKEKEKEEKKEKEKEKEKEKEKE KEKE KEKE KEKE KKK KKK KEK KKK KEKE KKEKEKK 


KKK KKKEKKKKKKEKEK 


* Program Name: Node_Del.prg 

* Author : D. .Geebaekvson 

* Date >: 11 August 1992 

* Last Updated: 

* 

~~ PuEpGse : Delete a node fron a network mee iciniG 
associated 


* 


Software records 


KKK KKKKKKKEKKEK KEKE KEKE KEKE KKK KKK KKKKEKKEKEKEKEKKKEKKKKKKRKK KKK KKK K 


wrakaekekeKaeKekeKeKe 


CLEAR 
DOeNeCchoice 
TE Nede= YN =" NONE 


CLEAR 
CLOSE DATABASES 
RETURN 


ENDIF 
NuNode = PROMPT () 
CLEAR 
YesNo = SPACE(1) 


@ 


10, 5 SAY "ARE YOU SURE YOU WANT TO DELETE Noba 


"+TRIM (NuNode)+" ?2?2?2?" 

@i12, 5 SAY “ENTER ‘Y’ TO CONTINUE OR ANY OTHER KEY iO 42623 
OPERATION" ; 

GET Sy esNoeretetURE =a 

READ 

DO CASE 


CASE UPPER(YesNo) = "Y" 
pees sD) Niels | OC) Bch 
USE Node ORDER Node_ID 
SEEK NuNode 
DELETE 
CLOSE DATABASE 
USE Sys_unit ORDER Node_ID 
SEEK NuNode 
IF FOUND () 
REPLACE Node_ID WITH "SPARE" 
ENDIF 
CLOSE DATABASE 
xex*xxx DELETE ASSOCIATED APPLEGCATIG Sonar 
USE Node_App ORDER Node_ID 
SEEK NuNode 
DELETE WHILE Node_ID = NuNode 
CLOSE DATABASE 
eek eKKE*K DELETE ASSOCIATED SYSTEM SCRIVARE 
USE Node_Sys ORDER Node_ID 


dle kd 


SEEK NuNode 
DELETE WHILE Node_ID = NuNode 
CLOSE DATABASE 


CLEAR 
@i10, 5 SAY "NODE "+TRIM(NuNode)+" HAS BEEN REMOVED FROM 
THE SYSTEM" 
@12,10 SAY "PRESS ANY KEY TO RETURN TO THE PREVIOUS 
MENU " 
OTHERWISE 


CLEAR 
@i10, 5 SAY "OPERATION TO DELETE NODE "+TRIM(NuNode) + 
HAS BEEN ABORTED" 
Ceo PRESS ANY KEY TO RETURN TO THE PREVIOUS 
MENU" 
ENDCASE 
WAL a ol u0 
CLOSE DATABASES 
CLEAR 
RETURN 


a. Node_Ed 


KKEKKEKK KKK KKK KKK KKK KK KKK KKK KKK KK KKK KKK KK KKK KKK KKK KKK 
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* Program Name : NODE_ED.prg 
we lelene ZeboeG. Dickison 
* Date : 14 August 1992 
* Version : Dbase IV Ver 1.1 
* Last Update 
* 
* Purpose : Allows a user to edit fields of a node and 
SEEGERS 
software 


* Programs Cll: N_Choice 


KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KEKE KEKE KKE KKK KKK KKK KK KKK 


kKaekekeekeKeKkeKeKeKeKee 


CLEAR 
DOmN Choice 
NuNode = PROMPT () 
****** CODE TO KEEP ERROR MSG FROM THIS PROGRAM OVERLAYING 
N_CHOICE 
IF Node_YN = "NONE" 
CLOSE DATABASES 
CLEAR 
RETURN 
ENDIF 
ae * ex x CALL UES N@DBE FOR BBITING 


digi all 


USE Node ORDER Node_ID 
SEEK NuNode 

SET FORMAT TO Node_Pic 
READ 

CLOSE FORMAT 

CLOSE DATABASE 

CLEAR 

RETURN 


28. Node_Que 
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* Program Name: Node_Que.prg 

Wey yolcloians ED: CC. Dickisen 

* Date : 08 September 1992 

* Version : Dbase IV Ver 1.1 

* Last Update 

* 

ews Sose ; Query a node and display Node infermation 
* 

7 ee oograms 

ae cned ; Ng@hesee 


KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKKKK 
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CLEAR 
CLOSE DATABASES 
DO N_Choice 
IF Node_YN = "NONE" 
CLOSE DATABASES 
CLEAR 
RETURN 
ESNet 
kak kkk kkKKOPERN FILES 
SELECT A 
USE Node ORDER Node_ID 
SEBEEGCT Ve 
USE Sys_unit ORDER Node_ID 
SELECT AG 
USE Node_App ORDER Node_ID 
SELECT Ee 
USE Node_Sys ORDER Node_ID 
SELECT A 
SET DEVIGE lessee eeN 
SEEK NuNode 
KER KK EAD ES eee al os 
? SPACE(5)+" NODE: "+Node_ID+" LAN: ="+Lan_Name 


A 


? SPACE(5)+"SYSTEM UNIT: "+Sys_unitno+" PURPOSE: "+Purpose 
IF TRIM(Sys_unitno) # "NONE ASSIGNED" 


SELECT B 
SEEK NuNode 
? SPACE(5),Cpu_mod_no+" "+Cpu_speed+" mHZ" 
? SPACE(5),Key..Compat+" KEYBOARD Poy sles MB MEM: 
"+Phys_moth+" MB" 
ENDIF 
2 io ve le vieoor T WAR | 
? REPLICATE ("-",30) 
SHmaeEcT D 


SET FILTER TO Node_ID = NuNode 
LIST sYS_Sw_Nam OFF 


? 
fs 


" APPLICATION SOFTWARE" 
ees Th Gen 3 Oy 


SELECT C 
SET FILTER TO Node_ID = NuNode 
LIST Sw_Name OFF 


WALT 
CLOSE DATABASES 
CLEAR 
RETURN 
29. N Choice 


+ + € 


* 


KEKKKKKEKEKKEKEKEKEKEKEKKEKKKEKKEKEKEKEEKEKEKRKEKEKEKEKEKEKRKEKEKEKEKKEKRKK KKK KKK KKKKK 
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Program Name : N_CHOICE.prg 

Pais h@ i Deamon ore Ki son 

Date meen July 1992 

Last Updated : 06 August 1992 

Purpose SeeeHoOo@snEs A NODE BY GREATING POPUP CHOICES. 


KKEKKKEKKKKKEKKKEKKEKKEKEKEKKEKEKEKKEKEKEKKEKEEKKEEKEKEKKEKEKKEKEKEKEKKEKEKKKKKEKEKKKKEKK 
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CLEAR 

PUBLIC Node_YN, NuNode 

NegdelyYN = “ 

CLOSE DATABASES 

oe A Grn Are A POPUP TO CHOOSE THE LAN WHICH SUBJECT 
NODE IS IN 

USE Lan ORDER Lan_Name 

@s, 9 SAY "USE CURSOR KEYS TO CHOOSE THE LAN WHICH THE NODE 
IS IN" 

@9, 20 SAY "AND PRESS ENTER FOR NODE CHOICES" 

DEFINE POPUP GetLan FROM 10, 20 PROMPT FIELD Lan_Name ; 
MESSAGE "PRESS Esc OR "+CHR(27)+" TO RETURN TO MENU" 


ta 


ON SELECTION POPUP Getlan DEACTIVATE POPUP 
ACTIVATE POPUP Getlan 
CLEAR 
Kkkkkkkkk*k*k CREATE A POPUP TO CHOOSE A NODE 
CLOSE DATABASES 
USE Node ORDER Lan_Name 
SET FILTER TO Lan_Name = PROMPT () 
SEEK PROMPT () 
TE FNGie hE eunND() 
CLEAR 
Node_YN = "NONE" 
@ 10, 15 SAY "NO NODES ARE PRESENTLY ASSIGNED TO THE 
"+TRIM(PROMPT())+" LAN" 
@12, 20 SAY "PRESS ANY KEY TO RETURN TO THE PREVIOUS MENU" 
Wage TAB tt al 
RETURN 
ENDIF 
@8, 5 SAY "USE CURSOR KEYS TO CHOOSE DESIRED NODE AND PRESS 
JING sgh 
DEFINE POPUP Get_Nod FROM 10, 20 PROMPT FIELD Node_ID 
ON SELECTION POPUP Get_Nod DEACTIVATE POPUP 
ACTIVATE POPUP Get_Nod 
NuNode = PROMPT () 
CLOSE DATABASES 
CLEAR 
RETURN 


30. Spare_Qu 
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kKaekwekeweKeKeKerKeKerkeKeee 


* Program Name : Spare_Qu 

Be NMalelong : D. G. Dickison 

* Date : 4 Sept 1992 

* Version : GBase IV Ver 1.1 

* Last Update 

* Purpose : Query a spare system unit 


KEKRKKEKEKKEKEKKEKEKEKEKEKEEKKEKEKKEKEKEEKKEKEKEKEKKEKEKKEKEKKKEKEKKKKKKKKKKKKKKKKEKK 
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CLOSE DATABASES 

CLEAR 

USE Sys_unit ORDER Sys_unitno 

SET FILTER TO TRIM(Nede= Fh) = SFAnE. 

@8,5 SAY "USE CURSOR KEYS TO CHOOSE SYSTEM UNIT SPARE" 
@9,5 SAY " AND PRESS ENTER" 

DEFINE POPUP Get_Spar FROM 10, 20 PROMPT FIELD Sys_unitno 
ON SELECTION POPUP Get_Spar DEACTIVATE POPUP 
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ACTIVATE POPUP Get_Spar 
CLEAR 

Sys_un_num = PROMPT () 

CLOSE DATABASE 

nt SOrPEN flies 

SELECT A 

USE Sys_unit ORDER Sys_unitno 
SE LEer B 

USE Accessor ORDER Sys_unitno 
SEBEL ¢ 

USE Drive ORDER Sys_unitno 
Shiger A 

Salem eVviICeE TO SCREEN 

SEEK soy s2Un num 

foc? *- Sr spoleay data 

? SPACE (5)+"SYSTEM UNIT NO: "+Sys_unitno+" PHYS resi MB MEM: 
"+PHYS_ MOTH+" MB" 


? SPACE(5) +" PHYSICAL ADDON MEM: 
"+Phy_addon+" MB" 

? SPACE (5)+Cpu_mod_no+" "+Cpu_speed+"mHZ 

LOGICAL EXPANDED MEM: "+Log_expmem+" MB" 

? SPACE(5),Key_Compat+" KEYBOARD LOGICAL EXTENDED 
MEM: "“+Log_ext_m+" MB" 

? SPACE(5)+" CACHE MEM: 


"+Cache_mem+" KB" 
Kak kK KKK KK KKK KE ETT OT ACCESSORIES AND DRIVES***** xxx RK KKKKS 


? “ ACCESSORY NAME ee 
Pee CATE, "*-"; 80) 
SELECT B 


celerpliTER TO Sys unatno = Sys_un_num 
LIST Access_nam,Access_typ OFF 
aOR EVE ae DRIVE TY Pee" 

? REPLICATE("-",80)} 

SHEET -C 

Sek FILTER VONSyY>s sulateno = Sys_un_num 
LIST Drive_Ltr,Drive_type OFF 


WAIT 
CLEAR 
CLOSE DATABASES 
RETURN 
a1). Sys_Del 
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kraerkkekekkekekekekeKekeek 


Peerogramn Namewe > o DEL.prg 
feeUtE hor mora, Dackison 


LIL: 


* Date > 27 wile 1992 

* Last Updated se27 Gulye 2 

* 

* "Purpese : Remove system software from a node. 
* SPUnC earens/ 


* Programs called: N_Choice 
KKKEKKKKEKKKKEKEKKEKKEKKKEKKEKKKKKKEKKEKEKKEKKKEKKKKKKKKKKKKK KKK KK KKK KKK *K 


kKkeKkkKkKkKkKkKKKEKK 


CLEAR 
eeK REE A AREA KEKE CALL N CHOICE TO LOGATE Shs stan ea oma 
DO N_Choice 
CLEAR 
CLOSE DATABASES 
YesNo = *Y" 
NuNode = PROMPT () 
DO WHILE UPPER(YeSNo) = "Y" 
USE Node_Sys ORDER Node_ID 
SET FILTER TO Node_ID = NuNode 
RAKKEKKKKEKKKEKK CORE K GR eh Me iy oo eee) ieee), | 
SEEK NuNode 
th NOL we OUND (} 
CLEAR 
@ 10, 5 SAY "NO APPLICATION SOFTWARE IS PRESENTLY 
ASSGNED TO NODE "+TRIM(NuNode) 
@i12, 13 SAY "PRESS ANY KEY TWICE VO @<RETURN eee 
PREVIOUS MENU" 
WATE al 40 
RETURN 
ENDIF 
CLEAR 
USE Node_Sys ORDER Sys_SW_Nam 
SET FILTER TO Node_ID = NuNode 
@ 8, 5 SAY "USE CURSOR KEYS TO CHOOSE SOFTWARE TO BE 
DELETED FROM "+TRIM(NuNode) 
@9, 11 SAY "AND PRESS ENTER TO DELETE SOFTWARE" 
DEFINE POPUP Get_Sys FROM 10, 20 PROMPT FIELD Sys_SW_Nam 
ON SELECTION POPUP Get_Sys DEACTIVATE POPUP 
ACTIVATE POPUP Get_Sys 
CLEAR 
ACCEPT "ARE YOU SURE?? ENTER ’Y’ TO CONTINUE OR ANY ©O@3EF 
KEY TO ABORT" TO YN 
PE SUEPER(YNye = Ye 
SEEK PROMPT ()} 
Baas 
CLEAR 
@ 10, 5 SAY TRIM(PROMPT())+" HAS BEEN REMOVED FROM 
"+TRIM (NuNode)+" NODE" 
@i2, 15 SAY "PRESS ANY KEY TO CONTINUB 
WALT it iT 
Bios 
CLEAR 
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@ 10, 5 SAY “PROCEDURE ABORTED....RETURNING TO MAIN 
MENU " 
GTZ eee SAY Berets o ANY KEY. PO, CONRINUE" 
VV WE iT ul 
RETURN 
ENDIF 
YesNo = SPACE(1) 
CLEAR 
@i0, 5 SAY "ENTER ‘Y’ TO DELETE MORE SYSTEM SOFTWARE FROM 
"+ TRIM (NuNode) 
@12, 12 SAY "OR ANY OTHER KEY TO EXIT TO PREVIOUS MENU"; 
GET YesNo PICTURE "X" 
READ 
DO Ceaor 
CASE UPPER(YesNO) = "yY" 
CLEAR 
OTHERWISE 
CLEAR 
@ 10, 5 SAY "NO FURTHER SOFTWARE CHOSEN TO BE 
DE he. ED" 
@i12, 5 SAY "PRESS ANY KEY TO EXIT TO PREVIOUS MENU" 
WALT u iT 
ENDCASE 
ENDDO 
CLOSE DATABASES 
CLEAR 
Re PoRN 


32. Sys_Ent 


KEKE KKKKKEKKEKEKEKKEKKEKKEKKEKKEKKEKEKEKEKKEKKEKKEKEKKKEKEKKEKKEKKKKEKKKKKKKKEK 
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Pee rogram Name: SYo_ENT.prg 

Ae nor wee ce. Drekison 

* Date comune 1992 

* Version Dbase IV Ver 1.1 

* Last mecateas 26 July 1992 

* 

= er ebsjerelel= : Add System software to an existing Node 


KKEKKKKKKEKKKEKKKEKKEKEKKEKKEKEKEKEKEKKEKEKKEKKKEKKKEKKEKKEKEKKKKKKKKKKKKKKKKKK 
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CLEAR 

CLOSE DATABASES 

ae CREATE A POPUP TO CHOOSE THE LAN WHICH THE NODE IS IN 
USE Lan ORDER Lan_Name 

@ 8, 9 SAY "USE CURSOR KEYS TO CHOOSE LAN WHICH THE NODE IS 
TN il 


ie? 


@ 9, 18 SAY "AND PRESS ENTER FOR NODE CHOICES" 
DEFINE POPUP GetLan FROM 10, 20 PROMPT FIELD Lan_Name ; 
MESSAGE "PRESS Esc OR "+CHR(27)+" TO RETURN TO MENU" 
ON SELECTION POPUP GetLan DEACTIVATE POPUP 
ACTIVATE POPUP GetLan 
NuLan = PROMPT () 
CLEAR 
kk kk kek kke*KEX CREATE A POPUP TO CHOOSE THE NODE THE SOFTWARE 
IS TO BE ADDED TO 
CLOSE DATABASES 
USE Node ORDER Lan_Name 
SET FILTER TO Lan_Name = PROMPT() 
kkkkkkKKKKEKEK CHECK TO ENSURE THE LAN IS NOT EMPTY 
SEEK PROMPT () 
i ~NOT. FOUND () 
CLEAR 
@ 10, 5 SAY " NO NODES ARE PRESENTLY ASSIGNED TO THE 
"+TRIM(PROMPT())+" LAN" 
@12, 13 SAY " PRESS ANY KEY TO RETURN TO THE PREVIOUS 
MENU " 
WATT | | it 
RETURN 
ENDIF 
@ 8, 5 SAY "USE CURSOR KEYS TO CHOOSE THE NODE WHICH THE 
SOFTWARE" 
@ 9, 5 SAY "IS TO BE ADDED AND PRESS ENTER FOR SOFTWARE 
CHOICES" 
DEFINE POPUP Get_Nod FROM 10, 20 PROMPT FIELD Node_ID ; 
MESSAGE "PRESS Esc OR "+CHR(27)+" TO RETURN TO MENU" 
ON SELECTION POPUP Get_Nod DEACTIVATE POPUP 
ACTIVATE POPUP Get_Nod 
NuNode = PROMPT() 


CLEAR 

CLOSE DATABASES 

YesNo = "Y" 

DO WHILE UPPER(YesNo) = "Y" 
DO Add_Sys 
YesNo = SPACE(1) 
CLEAR 


@i10, 5 SAY "ENTER ‘Y’‘ TO ADD FURTHER SYSTEM SOFTWARE TO 
CHOSEN NODE" 

@12, 23 SAY **ORPY’N’ TO Sxl TeTOeMea wy ": 

GET YesNo PICTURE "X" 


READ 
DO CASE 
CASE UPPER(YeSNo) = "N" 
CLEAR 
@ 10, 5 SAY "NO FURTHER SOFTWARE CHOSEN TO BE 
ENTERED" 
@12, 5 SAY "PRESS ANY KEY TO RETURN TO PREVIOUS 
MENU " 


ales 


WAL Jk uu 1) 


CASE UPPER(YesNo) = "Y" 
CLEAR 
OTHERWISE 
CLEAR 
@ TQyeSes42yY “INVAGID ENTRY», ,»,,, RETURNING TO PREVIOUS 
MENU il 
WALT 
ENDCASE 
ENDDO 
CLEAR 
RETURN 
38% Sys_Spa 
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* Program Name: SYS_SPA.prg 

 ouemor : D. G. Dickison 

* Date >: 1 Sept 1992 

* Version : Dbase IV Ver 1.1 

* Last Update 

* Purpose Allows user to change or view number of 


system software 
* 


spares. 
kaka aeKwceKkeaeKceKeKeKeKe Ke Ke KKK KKK Ke KKK KKK KKK KKK KK KKK KKK KKK KK KK KKK KK KKK KKK 
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CLEAR 

Pee oYS ow ORDER Sys ew Nam 

@ 8, 5 SAY "USE CURSOR KEYS TO CHOOSE THE DESIRED SYSTEM 
SOFTWARE" 

@ 9, 20 SAY " AND PRESS ENTER" 

DEFINE POPUP Get_Sys FROM 10, 20 PROMPT FIELD Sys_Sw_Nam 
ON SELECTION POPUP Get_Sys DEACTIVATE POPUP 

ACTIVATE POPUP Get_Sys 

SEEK PROMPT () 

SED FORMAT TO Sys_Spar 

READ 

CLOSE FORMAT 

CLOSE DATABASE 

CLEAR 

RETURN 


JAWS, 


34. Unit_2 
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*Program name: UNIT_2.prg 


*AuUthor > D.G. Dickison 
*Date > 17 June 1992 
*Version - Dbase IV Format 1.1 


*Last Updated: 10 August 1992 
* 


*Purpose : This program enters new system units into the 
database. 

* It also allows entry of drives, and 
accessories 

* 


associated with the system unit. 


KKEKKKKKEKKKKKEKEKKEKEKEKEKKEKEKEKEKEKEKEKEKKEKKKKEKEKKEKEKK KKK KK KK KKK KK KKK KKKRKEKK 
kKkekkekekekkeKkeKeKkeaek 


* Open database and index files 
PUBLIC Sys_un_num 
CLEAR 


KEKKKEKKEKKEKEKKKEKE KEKE KEKE KEKE KK KKK KKK KKK KEKEKEKEKEKEKKEKKKKKKKKKKK 
kKakkekkeKkekeKke 


* Check to ensure there is not already a system unit with the 


same moO. 
kkk kkkkkeke keke keke KK KKK KK KKK KKK KKKKKKKKKKKKKKKKK KKK KKK KKK KK KEK 
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USE Sys_unit ORDER Sys_unitno 

* Ask for the new system unit number 

SyYS_Un_ Num ="S PAGE (ia) 

@ 10,5 SAY "Enter the new system unit number" 

@ 12,5 SAY "or press return to exit to previous menu."; 
GET Sys_un_num PICTURE "XXXXXXXXXXXXXXX" 

READ 

* Check to see if number is already in use. 

SEEK SyvsS_un_num 


DO CASE 
*----No System Unit No. entered....exit. 
Gives. Sis bo @ tie Sees 
ielcliigtee—= 10" 
*----System unit no already in use...beep and give 
error msg. 
CASE FOUND () 
Adding. 
Pp GHEae | &&Beep 


@ 20, 5 SAY "Duplicate System Unit No: 
"+Sys_un_num 
@21, 5 SAY "Press any key return to menu" 
WAT i iT} 
*----System Unit No. not in use...Proceed 
with data entry. 
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CASE .NOT. FOUND () 
CLEAR 
USE scys2unit 
SET FORMAT TO Sy_unit 
APPEND BLANK 
REPLACE Sys_unitno WITH UPPER(Sys_un_num) 
REPLACE Node_ID WITH "SPARE" 
READ 
CLOSE FORMAT 
CLOSE DATABASES 


KKEKKKKKEKKKEKEKE KKK KEKE KEKEKEKEKKEKEKEKEKEKEKEKEKEKKEKEKKEKEKEKEKEKEKKEKEKEKK KKK KKK KKKKK 
Kaka KaeKe KKK Ke KKK 

*----Enter drives for the system unit. 

Ja -olery about adding drives. 


KEKKKKKKKKEKKKEKKEKKEKKKEKKKEKKEKKEKEKEEKKEKKEKEKEKKEKEKEKEKEKEKKKEKEKKK KK KKK KKKKEK 
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CLEAR 
iL cs ba 
DO WHILE UPPER(YN1) = "Y" 


ACCEPT "Enter disk drive(s) at this time? 
(Yea) TO» YN1 
DO CASE 
CASE UPPER(YN1) = "N" 
CLEAR 
@ 20,5 SAY "No drives chosen to be 
entered" 
WALT 
LOOP 
CASE UPPER(YN1) = "Y" && Add a drive 
CLEAR 
USE Drive 
CLEAR 
ACCEPT"Enter ‘H’ for Harddrive, any other 
Newaror £ loppy="1O FH 
*---Assign correct format for appending 
IF UPPER(FH) = "H" 
SET FORMAT TO Hrddrive 
Po 
SET FORMATO Floppy 
ENDIF 
CLEAR 
APPEND BLANK 
REPLACE Sys_unitno WITH UPPER (Sys_un_num) 
READ 
CLEAR 
CLOSE FORMAT 
CLOSE DATABASES 
OTHERWISE 
em CHR (7) && BEEP 
CLEAR 
YN1 = oy co 


eZ 


@ 20,5 SAY "INVALID ENTRY>. ENDER Y OR N' 
WAIT 
ENDCASE 
ENDDO 


KEKE KKK KKEKKKEKKEKKEKKEKKEKKEKEKKEKKEKEKEKKKKEKEKEKEKEKEKEKEKEKEKEKEKKKKKKKKKKKKKKEK 
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* ASK USER WHETHER ACCESSORIES SHOULD BE ADDED 
* 
* AND ADD THE ACCESSORIES 
* 
kakekkkekeKkeKkeKeKe KKK Ke KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KKK KKK KKEK 
kkkkekeKkekeks 
CLEAR 
YN2 = "Y" 
DO WHILE UPPER(YN2) = "Y" 


ACCEPT "Enter accessory(ies) at this time? 
(YIN) } SO yin 
DO CASE 
CASE UPPER(YN2) = "N" 
CLEAR 
@20, 5 SAY " No accessories chosen to be 
entered." 
WAIT 
LOOP 
CASE UPPER(YN2Z) "=5"Y" && ADD AN ACCESSORY 
CLEAR 
*Create popup to choose accessory 
category 
CLEAR 
USE Acc_Name ORDER Access_Nam 
@ 8, 5 SAY "USE CURSOR KEYS TO CHOOSE 
DES@TRED AGGEoSehaw 
@9, 13 SAY "AND PRESS RETURN" 
DEFINE POPUP Acc_Nam FROM 10, 20 PROMPT 
FIELD Access_Nam 
ON SELECTION POPUP Acc_Nam DEACTIVATE 


POPUP 

ACTIVATE POPUP Acc_Nam 

Nu_Acc = PROMPT () 

CLOSE DATABASE 

*Open file and append data/assign system 
Unite ne. 


USE Accessor 

SET FORMAT TO Accssy 

APPEND BLANK 

REPLACE Access_Nam WITH Nu_Acc 

REPLACE Sys_unitno WITH UPPER (Sys_un_num) 
READ 

CLEAR 

CLOSE FORMAT 

CLOSE DATABASES 


dL Ay 


OTHERWISE 
eee?) ee BEEP 


ES 
CLEAR 
@ 20,5 SAY "INVALID ENTRY...PLEASE ENTER 
cy OR i 
WAIT 
ENDCASE 
ENDDO 
ENDCASE 
* ASK USER WHETHER HE DESIRES TO ADD ANOTHER SYSTEM UNIT 
CLEAR 
CLEAR 
RETURN 
550 Unit_Add 
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* Program Name : UNIT_ADD.prg 

* Au@wor =D. Ge Dickisom 

* Date : 12 August 1992 

* Version : Dbase IV Ver 1.1 

* Last Update : 4 Sept 1992 

* 

* Purpose : Assigns a System unit to an existing node. 


kKaKkeaeKeKe Kea KKK KKK KR KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KR KKK KRKR KK 
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CLEAR 
SYS_UMm=num = SPA@H (15% 
@i10, 5 SAY "ENTER THE SYSTEM UNIT NUMBER OR PRESS RETURN" 
@i12, 12 SAY "TO RETURN TO PREVIOUS MENU"; 
GET Sys_un_num PICTURE "XXXXXXXXXXXXXXK" 
READ 
DO CASE 
****nothing entered,,, returning to previous menu 
CASE S¥Ysmuneanum.= " " 
CLOSE DATABASES 
CLEAR 
RETURN 
OTHERWISE 
Xt 7 ous ©LHAT GHEE SYSTEM UNIT IS IN THE DATABASE 
USE Sys_Unit ORDER Sys_Unitno 
SEEK UPPER(Sys_un_num) 
IF .NOT. FOUND () 
CLEAR 


IO TAS 


@10, 5 SAY ¥YSYSTEM UNE Re tees Ss meetin) eee 
FOUND IN DATABASE" 
@i12, 12 SAY “PLEASE DOUBLE CHECK YOUR SYSTEM UNIT 
NUMBER " 
@14, 13 SAY “PRESS ANY KEY TO RETURN TO PREVIOUS 
MENU" 
WATE iT} i 
CLOSE DATABASES 
CLEAR 
age MOP ay) 
ENDIF 
CLOSE DATABASE 
ReRRKKEKE* CHECK TO SEB IF THE SYSTEM UNIT IS ASSiteaeane 
A NODE 
USE Node ORDER Sys_unitno 
SEEK UPPER(Sys_un_num) 
TP? BOUNE( ) 
CLEAR 
YesNo = SPACE(1) 
@ 10, 5 SAY “SYSTEM UNIT "+TRIM(Sys_un_num)+" IS 
PRESENTLY ASSIGNED TO" 
@12, 5 SAY "NODE "+TRIM(Node_ID)+",,, ENTER ‘Y’ TO 
CONTINUES With tas: 
@i14, 15 SAY "OPERATION OR ANY OTHER KEY TO ABORR: 
GET YesNoePIiCTURE. 2 
READ 
DO CASE 
CASE UPPER(YesNo) = “Y" 
REPLACE Sys_unitno WITH "NONE ASSIGNED" 
CLEAR 
OTHERWISE 
CLEAR 
@i10, 5 SAY “PROCEDURE ABORTED,, PRESS ANY KEY 
TO RETURN TO MENU" 


WATT TT u 
CLOSE DATABASES 
CLEAR 
RETURN 
ENDCASE 

ENGI 

CLOSE DATABASE 

CLEAR 


USE Lan ORDER Lan_Name 

*xX****CET THE NODE ID OFTRHE NOBESTHE SYSLEM UNiice ne 
BE ADDED TO 

@8, 5 SAY "USE®SCURSOR KEYS@MPO%EHSSSERTHE DANPWHICH THE 
DESIRED NODE" 

@9, 20 SAY " IS IN AND PRESS ENTER" 

DEFINE POPUP Get_Lan FROM 10, 20 PROMPT FIELD Lan_Name 

ON SELECTION POPUP Get_Lan DEACTIVATE POPUP 

ACTIVATE POPUP Get_Lan 
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CLEAR 

NuLan = PROMPT() 

CLOSE DATABASE 

USE Node ORDER Node_ID 

So Pete Reno ten Name = Nuban 

@ 8, 5 SAY “USE CURSOR KEYS TO CHOOSE THE DESIRED NODE" 
@9, 10 SAY "AND PRESS ENTER" 

DEFINE POPUP Get_Nod FROM 10, 20 PROMPT FIELD Node_ID 
ON SELECTION POPUP Get_Nod DEACTIVATE POPUP 

ACTIVATE POPUP Get_Nod 

CLEAR 

NuNode = PROMPT (} 

SEEK PROMPT () 

See eestor OF NODE HAVING NO SYSTEM UNIT 


IF TRIM(Sys_unitno) = "NONE ASSIGNED" 
REPLACE SyS_unitno WITH UPPER(Sys_un_num) 
CLEAR 


CLOSE DATABASE 
USE Sys_unit ORDER Sys_Unitno 
SEEK UPPER (Sys.un_num) 
REPLACE Node_ID WITH UPPER (NuNode) 
@ 10, 5 SAY "SYSTEM UNIT "+TRIM(Sys_un_num)+" HAS 
BEEN ASSIGNED" 
@i12, 5 SAY "TO NODE "+TRIM(PROMPT())+" ..PRESS ANY 
Moe TO RETURN 
WAILT ul it 
CLOSE DATABASES 
CLEAR 
RETURN 
ENDIF 
a eee * OF oe OF NODE HAVING A SYSTEM UNIT 
CLEAR 
@ 10, 5 SAY "NODE "+TRIM(PROMPT())+" PRESENTLY HAS 
SYSTEM UNIT "+TRIM(Sys_unitno) 
@12, 5 SAY "ASSIGNED TO IT...PRESS ‘Y’ TO CONTINUE OR 
ANY OTHER KEY TO ABORT"; 
GET YesNo PICTURE "X" 
READ 
DO CASE 
CASE UPPER(YeSNo) = "Y" 
Sys_unit2 = Sys_unitno 
REPLACE Sys_unitno WITH UPPER(Sys_un_num) 
CLEAR 
CLOSE DATABASE 
USE Sys_Unit ORDER Sys_unitno 
NuNode = Prompt () 
SEEK PROMPT () 
REPLACE Node_ID WITH NuNode 
SEEK Sys_unit2 
REPLACE Node_ID WITH "SPARE" 
CLEAR 


ZS 


CLOSE DATABASE 
@i10, 5 SAY "SYSTEM UNIT "+TRIM(Sys_un_num)+" HAS 
BEEN ASSIGNED" 


@i12, 5 SAY "TO NODE "+TRIM(PROMPT())+" ...PRESS 

ANY KEY TO RETURN" 
OTHERWISE 

CLEAR 

@i10, 5 SAY " OPERATION ABORTED, , PRESS ANY KEY TO 
Re ore 

ENDCASE 
ENDCASE 
WAL Ab rT] iT 
CLOSE DATABASES 
CLEAR 
RETURN 
36. Unit_Ed 


KEKE KKEKEKEKKKEKEKKEKKEKEKEKEKEKEKEKEKEKEKEKKEKEKEKEKEKEKEEKEKEKEKEKKEKKEKEKKKKKKKKKKKEK 


kKaekaekkekekeKekekekk 


* Program Name : UNIT_ED.prg 

* PAU Nem a= D. Gay backuscon 

* Date : 12 August 1992 

* Version : Dbase IV Ver 1.1 

* Last Update 

* 

* Purpose ; Allows the user to edit/change sSyouem unite 
information 

* 


* Programs called: Get_Unit 
eK K KK KKK KKK KKK KKK KEKKEKKEKKEEKEEKEKEEKEEKEKEHKKEHEKEKKEEKEEKE KEK KK KKK KKK K 


Kakkar kaekaekKeke 


CLEAR 
DO Get_Unit 
CLOSE DATABASES 
IF TRIM(Sys_un_num) = "NONE ASSIGNED" 
CLOSE DATABASES 
CLEAR 
RETURN 
ENDIF 
Ka KKKEKKERKKEEX CALL UP SYSTEM UNEP RP Crae ean lG 
USE Sys_Unit ORDER Sys_unitno 
SET FORMAT TO Sy_Unit 
SEER SYs2une num 
READ 
CLOSE FORMAT 
CLOSE DATABASES 
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CLEAR 
ee eee eee ok UobR IE HE/SHE DESIRES TO EDIT DRIVES 
YesNo = SPACE(1) 
YesNe = =a 
DO WHILE UPPER(YesNo) = "Y" 
CLEAR 
@ eee, 5 SAY "ENTER oy." SES, DIESE SY olEM UNIT 
"+TRIM(Sys_un_num)+" DRIVES" 
@i1i2, 18 SAY "OR ANY OTHER KEY TO CONTINUE"; 
GET YesNo PICTURE "X" 
READ 
DO CASE 
CASE UPPER(YesNo) = "yY" 
CLEAR 
USE Drive ORDER Sys_unitno 
SET FILTER TO Sys unitno = Sys_un_num 
@ 8, 5 SAY "CHOOSE THE DRIVE FROM SYSTEM UNIT 
"+TRIM(Sys_un_num) 
@9, 12 SAY "TO BE EDITED AND PRESS ENTER " 
DEFINE POPUP Get_Driv FROM 10, 20 PROMPT FIELD 
Durve ltr 
ON SELECTION POPUP Get_Driv DEACTIVATE POPUP 
ACTIVATE POPUP Get_Driv 


CLEAR 
LOCATE FOR Drive_Ltr = PROMPT() 
IF TRIM(Drive_Type) = "EXTERN  HRDDRIVE" .OR. 
TRIM(Drive_Type) = "INTERN HRDDRIVE" 

SET FORMAT TO Hrddrive 

ELSE 
SET FORMAT TO Floppy 

ENDIF 
READ 


CLOSE FORMAT 
CLOSE DATABASE 
OTHERWISE 
CLEAR 
ENDCASE 
ENDDO 
Yes Nome bW.." 
DO WHILE UPPER(YeSNo) = "yY" 
CLEAR 
@ Oe 5 SAY ENTER a a Tre JIOAESE SYSTEM ONE IE Bh 
"+TRIM (Sys_un_num)+" ACCESSORIES" 
@i12, 10 SAY "OR ANY OTHER KEY TO RETURN TO PREVIOUS MENU'":; 
GET YesNo PICTURE "X" 
READ 
DO CASE 
CASE UPPER(YeSNo) = "Y" 
CLEAR 
USE Accessor ORDER Sys_unitno 
SET FILTER TO Sys_unitno = Sys_un_ num 


ae 


@ 8, 5 SAY “CHOOSE THE ACCESSORY FROM SYSTEM @Uhai? 
"+TRIM (Sys_un_num) 
@9, 14 SAY "TO BE EDITED AND PRESS ENTER " 
DEFINE POPUP Get_Acc FROM 10, 20 PROMPT FIELD 
Access_Nam 
ON SELECTION POPUP Get_Acc DEACTIVATE POPUP 
ACTIVATE POPUP Get_Acc 
CLEAR 
LOCATE FOR Access_Nam = PROMPT () 
SET FORMAT TO Accssy 
READ 
CLOSE FORMAT 
CLOSE DATABASE 
CLEAR 
OTHERWISE 
CLEAR 
ENDCASE 
ENDDO 
RETURN 


37. Unit Ent 
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“Program mane: UNITS ere 


Le Noh sloba : (DG Pa eckisoenm 
*Date > 17 June 1992 
*Version : Dbase IV Format 1.1 


*Last Updated: 04 SEPT 1992 
* 


*Purpose : This program enters new system units into the 
database. 

* It also allows entry of drives, and 
accessories 

* 


associated with the system unit. 
weaeKkeKeKeKeKeK KK KKK KKKKKKKKEKKKKEKKKKKKEKKEKKKKKKKKKKKKEKEKEKEKEKEEKKEKKKK KEK 
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* Open database and index files 
CLEAR 


KKK KKK KK KK KKK KKK KKK KKK KKK KKK KEKE KEKEKEKKKEKEKKKEKKEKKKKKKEKHK 
kaekkekekekekeek 


* Check to ensure there is not already a system unit with the 


SalMewne 
KKK KKKKKKEKKKKEKKKEKEKKEKKKEEKEKEKKKEKEKEKKKEKKEKKKEKEKEKKKEKK KKK KKKKKKKKKKEKEK 


tok ee 
Aaeanicg ae 
DO WHILE Adding 


lage 


USE Sys_unit ORDER Sys_unitno 
* Ask for the new system unit number 
py S Sane mune= 9 SPACE (15) 
@10,5 SAY "Enter the new system unit number" 
@ 12,5 SAY "or press return to exit to previous menu."; 
GElaoys Unemum PICTURE “AAAXAXXXXXXXXXX" 
READ 
* Check to see if number is already in use. 
SEEK Sys_un_num 
DO CASE 
*----No System Unit No. entered....exit. 
CASE Sys Une == ae 
Adcand = Ff ., 


LOOP 
*----System unit no already in use...beep and give 
error msg. 
CASE FOUND () 
2 VCH (7 ) &&Beep 


Cree 5 SAY "Duplicate System Unit No: 
py Se un. Num 
@21, 5 SAY "Press any key to try again" 
WAL 7 ih il 
*----System Unit No. not in use...Proceed with data 
erieasy . 
CASE .NOT. FOUND () 
J blaNes 
USE Sys_unit 
SET FORMAT TO Sy_unit 
APPEND BLANK 
REPLACE Sys_unitno WITH UPPER(Sys_un_num) 
REPLACE Node_ID WITH "SPARE" 
READ 
CLOSE FORMAT 
CLOSE DATABASES 


KEK KKK KEKE KEKE KEKE KEKE KKK KEKE KKK KKKKEKE KKK KKK KKK KKK KKK KKK KEKKKK KKK KKK 
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*----Enter drives for the system unit. 
*----Query about adding drives. 


Ke KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KK KKK KKK KK KKK KKK KKK KK KKK 
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CLEAR 
Mie “Y" 
DO WHILE UPPER(YN1) = "Y" 


ACCEPT "Enter disk drive(s) at this time? 
(Yo ere YN1 
DO CASE 
CASE UPPER(YN1i) = "N" 
CLEAR 
@ 20,5 SAY "No drives chosen to be 
entered" 
WAIT 


ILAg, 


LOOP 
CASE@UPPER(YN1) =@HY™) && dd vandcr ec 
CLEAR 
USE Drive 
CLEAR 
AGCEPT" Emter ’Hvetor Harddriveswany orner 
key £or fleppy) 2osrH 
*-~--Assign correct format for appending 
DE GUBEER VEE) = wer 
SET FORMAT TO Hrddrive 
ELSE 
SET FORMAT TO Floppy 
ENDIF 
CLEAR 
APPEND BLANK 
REPLACE Sys_unitno WITH UPPER (Sys_un_num) 
READ 
CLEAR 
CLOSE FORMAT 
CLOSE DATABASES 
OTHERWISE 
2” Grit) && BEEP 
CLEAR 
VYNI - nyu 
@ 20,5 SAY "INVALID ENTRY.. ENTER Y OR N" 
WAIT 
ENDCASE 
ENDDO 


KEKE KKK KKK KKK KEKE KRKEKKEKEKEKEKEKEKEKEKEEKKEKKEKEKEKEKEKEKEKEKEKEKKKKEKEKKKKKKKKKKEKEK 
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‘s ASK USER WHETHER ACCESSORIES SHOULD BE ADDED 


3 AND ADD THE ACCESSORIES 
* 
KEK KKKKEKKEKKEKKEKEKKKEKEKEKEKEKEKEKKEKKEKKEKKKEKEKEKKEKKEKEKEKEKKEKEKKEKEKEKKEKEKEKEKEKEKEKEKEKEEK 


kee kekkeekk 


CLEAR 
YN2 = "Y" 
DO WHILE UPPER(YN2) = "Y" 


ACCEPT "Enter accessory(ies) at this time? 
(YIN) @ eye 2 
DO CASE 
CASE UPPER(YN206 = She 
CLEAR 
@20, 5 SAY " No accessories chosen to be 
entered." 
WALT 
LOOP 
CASE UPPER(YN2) = "Y" && ADD AN ACCESSORY 
CLEAR 
CLEAR 
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USE Acc_Name ORDER Access_Nam 
@8, 5 SAY "USE CURSOR KEYS TO CHOOSE 
DESIRED ACCESSORY" 
@9, 14 SAY "AND PRESS RETURN" 
DEFINE POPUP Acc_Nam FROM 10, 20 PROMPT 
FIELD Access_Nam 
ON SELECTION POPUP Acc_Nam DEACTIVATE 
POPUP 
ACTIVATE POPUP Acc_Nam 
Nu_Acc = PROMPT () 
CLOSE DATABASE 
*Open file and append data/assign system 
Ligiae TO . 
USE Accessor 
SET FORMAT TO Accssy 
APPEND BLANK 
REPLACE Access_Nam WITH Nu_Acc 
REPLACE Sys_unitno WITH UPPER (Sys_un_num) 
READ 
CLEAR 
CLOSE FORMAT 
CLOSE DATABASES 
OTHERWISE 
Geen 7) Sc& BEEP 
YN2 - myn 
CLEAR 
@20,5 SAY "INVALID ENTRY...PLEASE ENTER 
‘ Y i OR ‘ N feu 
WAIT 
ENDCASE 
ENDDO 
ENDCASE 
See ok USER Vio tiokehs DESIRES TO ADD ANOTHER SYSTEM UNIT 
CLEAR 
ENDDO 
CLOSE DATABASE 
CLEAR 
RETURN 


38. Unit_Qu 
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Perogram Name’: UNIT_OU 

* Author : D. G. Dickison 

* Date : 14 August 1992 

* Version : Dbase IV Ver 1.1 


‘ee 


* Last Update : 4 Sept 1992 

* 

* Pupose ;: Uses Report Format to create a query of a 
system unit. 

* 


*Programs Clid : Get_Unit, Unit_Q 
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CLEAR 
CLOSE DATABASES 
DO Get_Unit 
CLEAR 
IF TRIM(Sys_un_num) = "NONE ASSIGNED" 
CLEAR 
CLOSE DATABASES 
RETURN 
ENDIF 
CLOSE DATABASES 
***** OPEN FILES AND SHEVREEA RIGS 
SELECT A 
USE Sys_unit ORDER Sys_unitno 
SpoaeIe Js 
USE Accessor ORDER Sys_unitno 
SHEnECr € 
USE Drive ORDER Sys_unitno 
SELECT A 
SET DEVICE TO SG@REEN 
SEEK Sys_un_num 
FEES Domb y kobe 


? SPACE(5)+"SYSTEM UNIT NO: "+Sys_unitno+" PHYSICAL MB 
MEM: “+PHYS_MOTH+" MB" 

? SPACE(5) +" PHYSICAL ADDON 
MEM: "+Phy_Addon+" MB" 

? SP2ACE(5) , Cou mocener- "+Cpu_speed+ "MHZ 

LOGICAL EXPANDED MEM:"+Log_expmem+" MB" 

? SPACE(5),Key_Compat+" KEYBOARD LOGICAL EXTENDED 
MEM: "+Log_ext_m+" MB" 

? SPACE(5)+" CACHE 


MEM: "+Cache_mem+" KB" 
kkk kkee eee TTST ACCESSORIES AND DRIVES 


? " ACCESSORY NAME Aes 
? (REPDRCATE (oor 
SELre las 


SET FILTER TO Sys_unitno = Sys_un_num 
LIST Access_nam,Access_typ OFF 

Foeee JSD le Jit BR iy Eye ee 
? REPL LAGE Se) 

Sy eGik | 

SET FILTER TO Sys_unitno = Sys_un_num 
LIST Drive_Ltr,Drive_type OFF 


i32 


WALT 

CLOSE DATABASES 
CLEAR 

RETURN 


39. Unit Rem 
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* Program Name : UNIT_REM.prg 

Sent ior aD Gre bickison 

* Date : 12 August 1992 

* Version >: Dbase IV Ver 1.1 

* Last Update 

* 

| bbaie role ie = "Removes the a system unit from a node 
association. 


* 
* Programs Called: Get_Unit 
Kaka KeKeKeK KK KKK KKK KKK KKK KRK KKK KKK KK KKK KK KKK KK KKK KK KK KK KKK KKK KKK 
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CLEAR 
DO Get_Unit 
CLOSE DATABASES 
cP TREIM(SyYS_Un num) = “NONE ASSIGNED" 
CLOSE DATABASES 
CLEAR 
RETURN 
ENDIF 
USE Node ORDER Sys_unitno 
SEEK Sys_un_num 
ee eee ARE SURE SYSTEM UNIT IS ASSIGNED TO A NODE 
ie .NOT. FOUNBT 
CLEAR 
@ 10, 5 SAY "SYSTEM UNIT "+TRIM(Sys_un_num)+" IS NOT 
ASSIGNED TO A NODE" 
@12, 9 SAY " PLEASE DOUBLE CHECK THE SYSTEM UNIT NO. OR 
NOpE sp. * 
@14, 12 SAY "PRESS ANY KEY TO RETURN TO PREVIOUS MENU" 
WALT iT iT 
CLOSE DATABASES 
CLEAR 
RETURN 
ENDIF 
CLEAR 
YesNo = SPACE(1) 


StS 


@i0, 5 SAY “SYSTEM UNIT "+TRIM(Sys_un_ num)+" 1S ASSIGNERSie 
NODE "+TRIM(Node_ID) 

@i12, 5 SAY "ENTER ‘Y’ TO REMOVE NODE ASSIGNMENT OR ANY OTHER 
KEY lore ee ie; 

GET YesNo PICTURE “X" 


READ 

DO CASE 
**x*k** REMOVAL OF ASSIGNMENT CHOSEN 
CASE UPPER(YeSNo) = "Y" 


CLEAR 

REPLACE Sys_unitno WITH "NONE ASSIGNED" 

CLOSE DATABASE 

USE Sys_unit ORDER Sys_unitno 

SEEK Sys_un_num 

REPLACE Node_ID WITH "SPARE" 

@i0, 5 SAY "SYSTEM UNIT "+TRIM(Sys_un_num)+" HAS BEEN 
REMOVED FROM" 

@i1i2, 5 SAY "NODE "+TRIM(Node_ID)+" PRESS ANY KEY TO 
RETURN TO@MeENUS 

exes OPERATLAON ABORTED 
OTHERWISE 

CLEAR 

@i10, 5 SAY “OPERATION ABORTED, , , PRESS@ANY KEY TO RETURD) 
T® PREV TOUS MENU " 
ENDCASE 
WAL oP il it 
CLOSE DATABASES 
CLEAR 
RETURN 


40. Un_Sp_D1l 
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* Program Name eae UNeSSEaDEeprg 

wo 2ihelg@ng > | eG. Dac kaeon 

* Date : 5 Sept 1992 

* Version : Dbase IV Ver 1.1 

* Last Update 

* Purpose : Delete Spare System Unit and its associated 
accessories 

: and drives from the database 


KEKE KKEKKEKKEKEKEKEKKEKEKKKEKEKKKEKEKEKKEKEKEKEKKEKKEKKKKKKKEKKKEKKK KK KK KKK KKKKKK 


kaekkekkekekekeKekekee 


CLEAR 
USE Sys_unit ORDER Sys_unitno 
SET FILTER TO TRIM(Node_ib) == "SP4nn. 
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CeCe eee Soh GURGOR KEYS TO CHOOSE SYSTEM UN@ZT TO DELETE" 
@9, 12 SAY "AND PRESS RETURN FOR CHOICE" 
DEFINE POPUP Get_Spar FROM 10, 20 PROMPT FIELD Sys_unitno 
ON SELECTION POPUP Get_Spar DEACTIVATE POPUP 
ACTIVATE POPUP Get_Spar 
Sys_un_num = PROMPT () 
CLEAR 
YesNo = SPACE(1) 
@i10, 5 SAY "ARE YOU SURE THAT YOU WANT TO DELETE SYSTEM UNIT 
SPARE" 
@i12, 5 SAY TRIM(Sys_un_num)+" ???? BNTER ’Y STO sGONTINUE OR 
ANY iT} 
@i14, 10 SAY "OTHER KEY TO ABORT THE OPERATION" ; 
GET YesNo PICTURE "X" 
READ 
DO CASE 
CASE UPPER(YesNo) = "yY" 
So Oro SroLeM UNIT 
SEEK Syslun num 
BJAG IuS 
CLOSE DATABASE 
‘2 DEE Te, AGEESSORIES 
USE Accessor ORDER Sys_unitno 
SB sows Ul num 
DELETE WHILE Sys_unitno = Sys_un_num 
CLOSE DATABASE 
OE LE ihe mk rt VES 
USE Drive ORDER Sys_unitno 
SEEK oY S-Unenum 
DELETE WHILE Sys_unitno = Sys_un_num 
CLOSE DATABASE 
**~** DESASSOGIATE NODE IF NECESSARY 
USE Node ORDER Sys_unitno 
SEEK Sys_un_num 
IF FOUND () 
REPLACE Sys_unitno WITH "SPARE" 
ENDIF 
CLOSE DATABASE 
CLEAR 
@i10, 5 SAY "SYSTEM UNIT "+TRIM(Sys_un_num)+" HAS BEEN 
1B)S, 45 JW Oe 
@12, 3 SAY " PRESS ANY KEY TO RETURN TO THE PREVIOUS 
MENU iT 
WAL P iT} iT 
poe Sonim CHOOSES NOT TO DELETE THE SYSTEM UNIT 
OTHERWISE 
CLEAR 
@i10, 5 SAY "PROCEEDURE ABORTED, PRESS ANY KEY TO RETURN 
TO MENU" 
WAL hs iT] iT 
ENDCASE 


le Sys 


CLOSE DATABASES 
CLEAR 
RETURN 


41. Un_Sp_Ed 
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Program Name : UN_SP_ED.prg 
Author ~~ Deer Dickison 
Date >: 4 Sept 1992 
Version : Dbase IV Ver 1.1 


Last Update 


+ + OF OF FF OF OF 


Purpose : Allows the user to edit/change spare system 
Unit Iinfemsncaelon 
* 


* Programs called: none 
KKEKKKEKEKKEKEKEKEKKEKEKEKEKEKEKEKRKEKEKKEKEKEKEKEKEKEKEKEKEKEKEKEKEEKEKEKEKEKEKEKEK KKK KKK KEKEKKEKEKEKEK 


wKaeKeKkeKeKe KE KKK KEKE 


CLEAR 

USE Sys_unit ORDER Sys_unitno 

SET FILTER TO TRIM(Node_ ib) = "SPARE" 

@ 8, 5 SAY “USE CURSOR KEYS TO SELEGD DESIRED VSPeRebeor slaw 
UNL ES 


@9, 13 SAY "AND PRESS RETURN FOR CHOICE" 
DEFINE POPUP Get_Spar FROM 10, 20 PROMPT FIELD Sys_unitno 
ON SELECTION POPUP Get_Spar DEACTIVATE POPUP 
ACTIVATE POPUP Get_Spar 
Sys_un_num = PROMPT () 
RERREREKEXK REESE CALL UP SYSTEM) UNET POne Sarees 
SET FORMAT TO Sy_Unit 
SEEN SYS Uns num 
READ 
CLOSE FORMAT 
CLOSE DATABASES 
CLEAR 
KEKE EEA KKK KEKE ASK USER [Ff Ue, Sue PEST RES T@e2b i lee rane 
YesNo SPACE (1) 
YesNew— Ty " 
DO WHILE UPPER(YeSNo) = "Y" 
CLEAR 
@ 1G; 5) SAY MENTER mae JUS. EDIT SYSDEM UNIT 
"+TRIM(Sys_un_num)+" DRIVES" 
@ 12, 18 SAY "OR ANY OTHERS@KEY TO COMNMANUE: 
GET YesNo PICTURE "X" 
READ 


S16 


De GASE 
CASE UPPER(YeSNo) = "Y" 

CLEAR 

USE Drive ORDER Sys_unitno 

SET FILTER TO Sys_unitno = Sys_un_num 

Cao oes weno oree las DRIVE FROM SYSTEM UNIT 
"+TRIM (Sys_un_num) 

Caron Slee tDIrED AND PRESS ENTER " 

DEFINE POPUP Get_Driv FROM 10, 20 PROMPT FIELD 
Drive_ltr 

ON SELECTION POPUP Get_Driv DEACTIVATE POPUP 

ACTIVATE POPUP Get_Driv 


CLEAR 
LOCATE FOR Drive_Ltr = PROMPT() 
IL Jet TRIM (Drive_Type) = ‘EAL ERN HRDDRIVE" neoke 
TRIM(Drive_Type) = "INTERN HRDDRIVE" 
SET FORMAT TO Hrddrive 
Pies 
SET FORMAT TO Floppy 
ENDIF 
READ 


CLOSE FORMAT 
CLOSE DATABASE 
OTHERWISE 
CLEAR 
ENDCASE 
ENDDO 
Meso = “YY” 
DO WHILE UPPER(YeSNo) = "Y" 
CLEAR 
@ Os 3 SAY SENTER eyes LUO, DIL Soe vee oN Ee 
"+TRIM(Sys_un_num)+" ACCESSORIES" 
ees Ome t eee orerony OlHER KEY TO RETURN TO PREVIOUS MENU"; 
GET YesNo PICTURE "X" 
READ 
DO CASE 
CASE UPPER(YesNo) = "Y" 
CLEAR 
USE Accessor ORDER Sys_unitno 
SET FILTER TO Sys_unitno = Sys_un_num 
@ 8, 5 SAY "CHOOSE THE ACCESSORY FROM SYSTEM UNIT 
"+TRIM (Sys_un_num) 
@9, 14 SAY "TO BE EDITED AND PRESS ENTER " 
DEFINE POPUP Get_Acc FROM 10, 20 PROMPT FIELD 
Access_Nam 
ON SELECTION POPUP Get_Acc DEACTIVATE POPUP 
ACTIVATE POPUP Get_Acc 
CLEAR 
LOCATE FOR Access_Nam = PROMPT () 
SET FORMAT TO Accssy 
READ 
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CLOSE FORMAT 
CLOSE DATABASE 
CLEAR 
OTHERWISE 
CLEAR 
ENDCASE 
ENDDO 
RETURN 


Leys) 
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